home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 3 / Your Choice Software Collection 3.iso / doom / progs / pwaddr10 / pwadder.ex < prev    next >
Text File  |  1994-09-26  |  59KB  |  3,216 lines
  1.     
  2. ÆîB=1,
  3. C=2,
  4. D=4,
  5. E=8,
  6. F=16,
  7. G=32,
  8. H=64
  9. îI=14,
  10. J=15,
  11. K=24
  12. ÆæL()
  13. ç╧(I,0)
  14. éæ
  15. ÆäM(¡N)
  16. ╨(J,N)
  17. éä
  18. ÆäN(¡O)
  19. ╨(K,O)
  20. éä
  21. îO=1,
  22. P=2,
  23. Q=3,
  24. R=4,
  25. S=5,
  26. T=6,
  27. U=7,
  28. V=8,
  29. W=9,
  30. X=10,
  31. Y=11,
  32. Z=12,
  33. a=13,
  34. b=18,
  35. c=21
  36. ïd(¡e)
  37. ç(e>=-3Äe<=19)Å(e>=256Äe<=261)
  38. éï
  39. ïe(¡f)
  40. çf>=0Äf<=255
  41. éï
  42. ïf(¡g)
  43. çg=0Åg=1
  44. éï
  45. ïg(¡h)
  46. çh>=1
  47. éï
  48. ïh(«i)
  49. ç½(i)=2
  50. éï
  51. ïi(«j)
  52. ç½(j)>=2
  53. éï
  54. Æäj(e k,i l)
  55. ╨(P,{k,0,l})
  56. éä
  57. Æäk(e l,
  58. f m,
  59. i n)
  60. ╨(Y,{l,m,n})
  61. éä
  62. Æäl(e m,f n,h o,h p)
  63. ╨(b,{m,n,o,p})
  64. éä
  65. Æäm(e n,h o)
  66. ╨(R,{n,o})
  67. éä
  68. Ææp(h n)
  69. ç╧(c,n)
  70. éæ
  71. Ææo(d n)
  72. ç╧(S,n)
  73. éæ
  74. Æîn=1,
  75. q=2,
  76. r=3,
  77. s=4,
  78. t=5,
  79. u=6,
  80. v=7
  81. Ææw()
  82. ç╧(a,0)
  83. éæ
  84. Æîx=8192,
  85. y=1543,
  86. z=7,
  87. BA=1031
  88. ÆäBB(¡BC)
  89. ╨(T,BC)
  90. éä
  91. ÆæBC(g BD)
  92. ç╧(Z,BD)
  93. éæ
  94. ÆäBD(f BE)
  95. ╨(U,BE)
  96. éä
  97. ÆäBE(¡BF)
  98. ╨(V,BF)
  99. éä
  100. ÆäBF(e BG)
  101. ╨(W,BG)
  102. éä
  103. ÆäBG(e BH)
  104. ╨(X,BH)
  105. éä
  106. ïBH(«BI)
  107. ç½(BI)=3 
  108. éï
  109. ÆæBI(e BJ,BH BK)
  110. ç╧(Q,{BJ,BK})
  111. éæ
  112. ïBJ(¡BK)
  113. çBK>=0
  114. éï
  115. ÆäBK(BJ BL)
  116. ╨(O,BL)
  117. éä
  118. îBL=19,
  119. BM=20,
  120. BN=22,
  121. BO=23
  122. ïBP(¡BQ)
  123. çBQ>=0
  124. éï
  125. ïBQ(¡BR)
  126. çBR>=-1
  127. éï
  128. ÆæBR(BP BS,BQ BT)
  129. ç╧(BL,{BS,BT})
  130. éæ
  131. ÆæBS(BP BT)
  132. ç╧(BM,BT)
  133. éæ
  134. Æî
  135. BT=1,
  136. BU=2,
  137. BV=3,
  138. BW=4,
  139. BX=5,
  140. BY=6,
  141. BZ=7,
  142. Ba=8,
  143. Bb=9
  144. ÆæBc(«Bd)
  145. ç╧(BN,Bd)
  146. éæ
  147. ÆæBd()
  148. ç╧(BO,0)
  149. éæ
  150. ÆæBe(«Bf)
  151. ¡Bg,Bh,Bi,Bj
  152. ░Bk,Bl
  153. Bj=½(Bf)
  154. Bg=╢(Bj/3)+1
  155. è1ê
  156. Bi=Bg+1
  157. åBm=BiìBjê
  158. Bk=Bf[Bm]
  159. Bh=Bm-Bg
  160. è1ê
  161. Bl=Bf[Bh]
  162. ü╜(Bk,Bl)>=0â
  163. Bh=Bh+Bg
  164. É
  165. éü
  166. Bf[Bh+Bg]=Bl
  167. üBh<=Bgâ
  168. É
  169. éü
  170. Bh=Bh-Bg
  171. éè
  172. Bf[Bh]=Bk
  173. éå
  174. üBg=1â
  175. çBf
  176. à
  177. Bg=╢(Bg/3)+1
  178. éü
  179. éè
  180. éæ
  181. ÆîBf=0,
  182. Bg=-1,
  183. Bh=1
  184. îBi=-2
  185. îBj=1
  186. ïBk(¡Bl)
  187. çBl>=0
  188. éï
  189. ïBm(¡Bl)
  190. çBl>=BiÄBl<=255
  191. éï
  192. Bk Bl
  193. Bm Bn
  194. Bn=Bi
  195. æBo()
  196. Bm Bp
  197. üBn=Biâ
  198. ç╖(Bl)
  199. à
  200. Bp=Bn
  201. Bn=Bi
  202. çBp
  203. éü
  204. éæ
  205. äBp(Bm Bq)
  206. Bn=Bq
  207. éä
  208. äBq()
  209. Bm Br
  210. èBjê
  211. Br=Bo()
  212. üö╛(Br,{
  213. 32,9,10})â
  214. É
  215. éü
  216. éè
  217. Bp(Br)
  218. éä
  219. îBr={
  220. 110,116,39,34,92,114},
  221. Bs={
  222. 10,9,39,34,92,13}
  223. æBt(Bm Bu)
  224. Bk Bv
  225. Bv=╛(Bu,Br)
  226. üBv=0â
  227. çBh
  228. à
  229. çBs[Bv]
  230. éü
  231. éæ
  232. æBu()
  233. Bm Bv
  234. Bv=Bo()
  235. üBv=92â
  236. Bv=Bt(Bo())
  237. üBv=Bhâ
  238. ç{Bh,0}
  239. éü
  240. éü
  241. üBo()!=39â
  242. ç{Bh,0}
  243. à
  244. ç{Bf,Bv}
  245. éü
  246. éæ
  247. æBv()
  248. «Bw
  249. Bm Bx
  250. Bw={}
  251. èBjê
  252. Bx=Bo()
  253. üBx=BgÅBx=10â
  254. ç{Bh,0}
  255. éü
  256. üBx=34â
  257. É
  258. ëBx=92â
  259. Bx=Bt(Bo())
  260. üBx=Bhâ
  261. ç{Bh,0}
  262. éü
  263. éü
  264. Bw=Bw&Bx
  265. éè
  266. ç{Bf,Bw}
  267. éæ
  268. ïBw(¡Bx)
  269. çBx=-1ÅBx=+1
  270. éï
  271. æBx()
  272. Bm By
  273. Bw Bz,CA
  274. Bk CB
  275. ¡CC
  276. ╝CD,CE,CF,CG
  277. Bz=+1
  278. CD=0
  279. CA=+1
  280. CF=0
  281. CB=0
  282. By=Bo()
  283. üBy=45â
  284. Bz=-1
  285. ëBy !=43â
  286. Bp(By)
  287. éü
  288. By=Bo()
  289. üBy=35â
  290. èBjê
  291. By=Bo()
  292. CC=╛(By,{
  293. 48,49,50,51,52,53,54,55,56,57,65,66,67,68,69,70})-1
  294. üCC>=0â
  295. CB=CB+1
  296. CD=CD*16+CC
  297. à
  298. Bp(By)
  299. üCB>0â
  300. ç{Bf,Bz*CD}
  301. à
  302. ç{Bh,0}
  303. éü
  304. éü
  305. éè
  306. éü
  307. è╛(By,{
  308. 48,49,50,51,52,53,54,55,56,57})ê
  309. CB=CB+1
  310. CD=CD*10+(By-48)
  311. By=Bo()
  312. éè
  313. üBy=46â
  314. By=Bo()
  315. CE=10
  316. è╛(By,{
  317. 48,49,50,51,52,53,54,55,56,57})ê
  318. CB=CB+1
  319. CD=CD+(By-48)/CE
  320. CE=CE*10
  321. By=Bo()
  322. éè
  323. éü
  324. üCB=0â
  325. ç{Bh,0}
  326. éü
  327. üBy=101ÅBy=69â
  328. By=Bo()
  329. üBy=45â
  330. CA=-1
  331. ëBy !=43â
  332. Bp(By)
  333. éü
  334. By=Bo()
  335. ü╛(By,{
  336. 48,49,50,51,52,53,54,55,56,57})â
  337. CF=By-48
  338. By=Bo()
  339. è╛(By,{
  340. 48,49,50,51,52,53,54,55,56,57})ê
  341. CF=CF*10+By-48
  342. By=Bo()
  343. éè
  344. Bp(By)
  345. à
  346. ç{Bh,0}
  347. éü
  348. à
  349. Bp(By)
  350. éü
  351. CG=1
  352. üCA>=0â
  353. åCH=1ìCFê
  354. CG=CG*10
  355. éå
  356. à
  357. åCH=1ìCFê
  358. CG=CG*0.1
  359. éå
  360. éü
  361. ç{Bf,Bz*CD*CG}
  362. éæ
  363. æBy()
  364. Bm Bz
  365. «CA,CB
  366. Bq()
  367. Bz=Bo()
  368. ü╛(Bz,{
  369. 45,43,46,48,49,50,51,52,53,54,55,56,57,35})â
  370. Bp(Bz)
  371. çBx()
  372. ëBz=123â
  373. CA={}
  374. èBjê
  375. Bq()
  376. Bz=Bo()
  377. üBz=125â
  378. ç{Bf,CA}
  379. à
  380. Bp(Bz)
  381. éü
  382. CB=By()
  383. üCB[1]!=Bfâ
  384. çCB
  385. éü
  386. CA=▒(CA,CB[2])
  387. Bq()
  388. Bz=Bo()
  389. üBz=125â
  390. ç{Bf,CA}
  391. ëBz !=44â
  392. ç{Bh,0}
  393. éü
  394. éè
  395. ëBz=34â
  396. çBv()
  397. ëBz=39â
  398. çBu()
  399. ëBz=-1â
  400. ç{Bg,0}
  401. à
  402. ç{Bh,0}
  403. éü
  404. éæ
  405. ÆæCC(Bk CD)
  406. Bl=CD
  407. çBy()
  408. éæ
  409. îCE=.4
  410. ╝CF
  411. ░CG,CH,Bz,CA,CB
  412. ,CD
  413. ¡CI,CJ,CK,CL,CM
  414. ,CN,CO,CP,CQ,CR
  415. ,CS,CT,CU,CV,CW
  416. ,CX,CY,CZ,Ca,Cb
  417. ,Cc,Cd,Ce,Cf,Cg
  418. ,Ch
  419. «Ci,Cj,Ck,Cl,Cm
  420. ,Cn,Co,Cp,Cq,Cr
  421. ,Cs,Ct,Cu,Cv,Cw
  422. ,Cx,Cy,Cz,DA,DB
  423. ,DC,DD,DE,DF,DG
  424. ,DH,DI,DJ,DK,DL
  425. ,DM,DN,DO
  426. ,DP,DQ,DR,DS,DT
  427. ,DU,DV
  428. äDW(╝DX,╝DY,╝CH,╝DZ,╝Da)
  429. ╝Ci
  430. Ci=753662+(((DY*80)-(80-CH))*2)
  431. ╙(Ci,DX)
  432. ╙(Ci+1,DZ+(16*Da))
  433. éä
  434. äDX(░DY,╝DZ,╝CH,╝Da,╝Db)
  435. ╝Ci
  436. üö╝(DY)â
  437. Ci=753660+(((DZ*80)-(80-CH))*2)
  438. åDc=1ì½(DY)ê
  439. ╙(Ci+(Dc*2),DY[Dc])
  440. ╙(Ci+(Dc*2)+1,Da+(16*Db))
  441. éå
  442. à
  443. DW(DY,DZ,CH,Da,Db)
  444. éü
  445. éä
  446. äDY()
  447. ¡DZ,Da
  448. ╝Ci 
  449. «Db
  450. DU={}
  451. åDc=DV[1][1]ìDV[2][1]+1ê
  452. Db={}
  453. åCH=DV[1][2]ìDV[2][2]+2ê
  454. Ci=753662+(((Dc*80)-(80-CH))*2)
  455. Db=▒(Db,{╥(Ci),╥(Ci+1)})
  456. éå
  457. DU=▒(DU,Db)
  458. éå
  459. BF(DV[3])
  460. BG(DV[4])
  461. åDc=DV[1][1]ìDV[2][1]ê
  462. åCH=DV[1][2]ìDV[2][2]ê
  463. üCH=DV[1][2]ÅCH=DV[2][2]â
  464. DW(219,Dc,CH,DV[5],DV[4])
  465. ëDc=DV[1][1]â
  466. DW(223,Dc,CH,DV[5],DV[4])
  467. ëDc=DV[2][1]â
  468. DW(220,Dc,CH,DV[5],DV[4])
  469. à
  470. DW(32,Dc,CH,DV[3],DV[4])
  471. éü
  472. éå
  473. éå
  474. BF(8)
  475. BG(0)
  476. åDc=DV[1][1]+1ìDV[2][1]+1ê
  477. DZ=Dc-(DV[1][1]-1)
  478. Da=(DV[2][2]-(DV[1][2]-1))+1
  479. DX(DU[DZ][Da][1]&DU[DZ][Da+1][1],Dc,
  480. DV[2][2]+1,8,0)
  481. éå
  482. åCH=DV[1][2]+2ìDV[2][2]+1ê
  483. DZ=(DV[2][1]-(DV[1][1]-1))+1 
  484. Da=CH-(DV[1][2]-1)
  485. DW(DU[DZ][Da][1],DV[2][1]+1,CH,8,0)
  486. éå
  487. éä
  488. äDZ()
  489. ¡Da,Db
  490. åDc=DV[1][1]ìDV[2][1]+1ê
  491. Da=Dc-(DV[1][1]-1)
  492. åCH=DV[1][2]ìDV[2][2]+2ê
  493. Db=CH-(DV[1][2]-1)
  494. DW(DU[Da][Db][1],Dc,CH,DU[Da][Db][2],0)
  495. éå
  496. éå
  497. éä
  498. äDa(«Db,«Dc)
  499. ¡Dd,De,CF
  500. üö╝(Bc(Db))â
  501. üö╝(Bc(Dc))â
  502. ╦({
  503. 100,101,108,32}&Dc,2)
  504. éü
  505. De=┬(Db,{
  506. 114,98})
  507. CF=┬(Dc,{
  508. 119,98})
  509. è1ê
  510. Dd=╖(De)
  511. üDd=-1â
  512. É
  513. éü
  514. ¼(CF,Dd)
  515. éè
  516. ├(De)
  517. ├(CF)
  518. éü
  519. éä
  520. äDb(¡Dc,¡Dd)
  521. BF(Dc)
  522. BG(Dd)
  523. éä
  524. äDe()
  525. Db(14,0)
  526. ╡()
  527. DX({
  528. 32,86,101,114,115,105,111,110,32}&DL&
  529. {
  530. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  531. 32,80,32,87,32,65,32,68,32,68,32,69,32,82,32,32,32,32,32,32,
  532. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,77,97,
  533. 71,32,49,57,57,52,32},1,1,14,1)
  534. Db(14,0)
  535. éä
  536. æDc(«Dd,«Cw)
  537. ¡Df
  538. «Dg,Dh,Di,Dj,DA
  539. DA={{0},{0}}
  540. BB(8192)
  541. DA[1]={
  542. 112,97,116,104,32,110,111,116,32,102,111,117,110,100}
  543. Df=0
  544. Dg={}
  545. Dh={}
  546. Di={}
  547. Dj={}
  548. Dj=▒(Dj,{
  549. 48})
  550. »(7,1)
  551. ┤(1,{
  552. 83,101,97,114,99,104,105,110,103,32,37,115,58,32},Dd)
  553. Dg=Bc(Dd&{
  554. 58,92})
  555. åDk=1ì½(Dg)ê
  556. ü╜(Dg[Dk][1],Cw)=0â
  557. DA[1]=Dd&{
  558. 58,92}&Cw
  559. Df=1
  560. É
  561. éü
  562. üö╝(Bc(Dd&{
  563. 58,92}&Dg[Dk][1]))â
  564. ü╜(Dg[Dk][2],{
  565. 100})=0â
  566. »(7,11)
  567. ┤(1,{
  568. 37,115,58,92,37,115,32,32,32,32,32,32,32,32,32,32,32,32,32,
  569. 32,32,32,32,32},{Dd,Dg[Dk][1]})
  570. Dh=Bc(Dd&{
  571. 58,92}&Dg[Dk][1])
  572. åCH=1ì½(Dh)ê
  573. ü╜(Dh[CH][1],Cw)=0â
  574. DA[1]=Dd&{
  575. 58,92}&Dg[Dk][1]&{
  576. 92}&Cw
  577. Df=1
  578. É
  579. éü
  580. üö┐({
  581. 46},Dh[CH][1])â
  582. üö╝(Bc(Dd&{
  583. 58,92}&Dg[Dk][1]&{
  584. 92}&
  585. Dh[CH][1]))â
  586. ü╜(Dh[CH][2],{
  587. 100})=0â
  588. »(7,11)
  589. ┤(1,{
  590. 37,115,58,92,37,115,92,37,115,32,32,32,32,32,32,32,32,32,
  591. 32,32,32,32,32,32},
  592. {Dd,Dg[Dk][1],Dh[CH][1]})
  593. Di=Bc(Dd&{
  594. 58,92}&Dg[Dk][1]&{
  595. 92}&
  596. Dh[CH][1])
  597. åDl=1ì½(Di)ê
  598. ü╜(Di[Dl][1],Cw)=0â
  599. DA[1]=Dd&{
  600. 58,92}&Dg[Dk][1]&{
  601. 92}&
  602. Dh[CH][1]&{
  603. 92}&Cw
  604. Df=1
  605. É
  606. éü
  607. üö┐({
  608. 46},Di[Dl][1])â
  609. üö╝(Bc(Dd&{
  610. 58,92}&Dg[Dk][1]&{
  611. 92}&
  612. Dh[CH][1]&{
  613. 92}&Di[Dl][1]))â
  614. ü╜(Di[Dl][2],{
  615. 100})=0â
  616. »(7,11)
  617. ┤(1,{
  618. 37,115,58,92,37,115,92,37,115,92,37,115,32,32,32,32,32,
  619. 32},
  620. {Dd,Dg[Dk][1],Dh[CH][1],Di[Dl][1]})
  621. Dj=Bc(Dd&{
  622. 58,92}&Dg[Dk][1]&{
  623. 92}&
  624. Dh[CH][1]&{
  625. 92}&Di[Dl][1])
  626. éü
  627. éü
  628. éü
  629. üDfâ
  630. É
  631. éü
  632. éå
  633. éü
  634. éü
  635. éü
  636. üDfâ
  637. É
  638. éü
  639. éå
  640. éü
  641. éü
  642. üDfâ
  643. É
  644. éü
  645. éå
  646. Df=1
  647. ü╜(DA[1],{
  648. 112,97,116,104,32,110,111,116,32,102,111,117,110,100})!=0â
  649. Db(11,0)
  650. »(3,1)
  651. ┤(1,{
  652. 70,111,117,110,100,32,37,115,32,32,32,32,32,32,32,32,32,32,32,32,
  653. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  654. 10,10},{DA[1]})
  655. Db(14,0)
  656. éü
  657. BB(1543)
  658. çDA[1]
  659. éæ
  660. äDd()
  661. ╡()
  662. De()
  663. Db(14,0)
  664. DX({
  665. 67,111,117,108,100,32,110,111,116,32,102,105,110,100,32,97,32,114,101,103,
  666. 105,115,116,101,114,101,100,32,118,101,114,115,105,111,110,32,111,102,32,68,
  667. 79,79,77,46},1,4,14,0)
  668. DX({
  669. 80,87,65,68,68,69,82,32,105,115,32,111,102,32,110,111,32,117,115,101,
  670. 32,116,111,32,121,111,117,32,105,102,32,121,111,117,32,100,111,110,39,116,
  671. 32,111,119,110,32,68,79,79,77,46},1,6,14,0)
  672. DX({
  673. 73,102,32,121,111,117,32,109,97,100,101,32,97,32,109,105,115,116,97,107,
  674. 101,32,116,104,97,116,39,115,32,111,107,97,121,46,32,74,117,115,116,32,
  675. 115,116,97,114,116,32,80,87,65,68,68,69,82,32,97,103,97,105,110,46},1,8,14,0)
  676. DX({
  677. 79,116,104,101,114,119,105,115,101,44,32,103,111,32,98,117,121,32,68,79,
  678. 79,77,46},1,10,14,0)
  679. DX({
  680. 72,97,118,101,32,97,32,110,105,99,101,32,100,97,121,46},1,12,14,0)
  681. ╤(0)
  682. éä
  683. äDf()
  684. ¡Dg
  685. »(3,1)
  686. DA={{0},{0}}
  687. DX({
  688. 66,97,100,32,111,114,32,109,105,115,115,105,110,103,32,80,87,65,68,68,
  689. 69,82,46,73,78,73,46,32,65,116,116,101,109,112,116,105,110,103,32,116,
  690. 111,32,114,101,98,117,105,108,100,46,46,46,32},3,1,14,0)
  691. ü╝(Bc({
  692. 99,58,92,100,111,111,109}))â
  693. Db(10,0)
  694. ¼(1,{
  695. 76,111,111,107,105,110,103,32,102,111,114,32,68,79,79,77,32,111,110,32,
  696. 100,114,105,118,101,32,67,58})
  697. Db(14,0)
  698. DA[1]=Dc({
  699. 67},{
  700. 68,79,79,77})
  701. à
  702. DA[1]={
  703. 67,58,92,68,79,79,77}
  704. éü
  705. ü╜(DA[1],{
  706. 112,97,116,104,32,110,111,116,32,102,111,117,110,100})=0Å╝(Bc(DA[1]&{
  707. 92,100,111,111,109,46,119,97,100}))â
  708. åDh=3ì9ê
  709. »(Dh,1)
  710. ¼(1,{
  711. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  712. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  713. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  714. 32,32,32,32})
  715. éå
  716. »(3,1)
  717. ¼(1,{
  718. 67,111,117,108,100,32,110,111,116,32,102,105,110,100,32,97,32,114,101,103,
  719. 105,115,116,101,114,101,100,32,118,101,114,115,105,111,110,32,111,102,32,68,
  720. 79,79,77,32,111,110,32,100,114,105,118,101,32,67,58,46})
  721. ¼(1,{
  722. 10,10,73,115,32,105,116,32,111,110,32,97,110,111,116,104,101,114,
  723. 32,100,114,105,118,101,32,63,32,32,89,47,78,32})
  724. CM=-1
  725. èCM=-1ê
  726. CM=╣()
  727. éè
  728. ¼(1,{CM})
  729. üCM=89ÅCM=121â
  730. »(5,1)¼(1,{
  731. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  732. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32})»(5,1)
  733. ┤(1,{
  734. 37,115},{{
  735. 87,104,105,99,104,32,100,114,105,118,101,32,108,101,116,116,101,114,32,63,
  736. 32}})
  737. CM=-1
  738. èCM=-1ê
  739. CM=╣()
  740. éè
  741. ¼(1,{CM})
  742. üCM>90âCM=CM-32éü
  743. ü╝(Bc(CM&{
  744. 58,92,100,111,111,109}))â
  745. ╡()
  746. De()
  747. Db(10,0)
  748. »(5,1)¼(1,{
  749. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  750. 32,32,32,32,32,32,32,32,32,32,32,32,32})»(5,1)
  751. ┤(1,{
  752. 76,111,111,107,105,110,103,32,102,111,114,32,68,79,79,77,32,111,110,32,
  753. 100,114,105,118,101,32,37,115,58},CM)
  754. Db(14,0)
  755. DA[1]=Dc({CM},{
  756. 68,79,79,77})
  757. à
  758. DA[1]=CM&{
  759. 58,92,68,79,79,77}
  760. éü
  761. ü╜(DA[1],{
  762. 112,97,116,104,32,110,111,116,32,102,111,117,110,100})=0Å╝(Bc(DA[1]&{
  763. 92,100,111,111,109,46,119,97,100}))â
  764. Dd()
  765. éü
  766. à
  767. Dd()
  768. éü
  769. à
  770. CM=99
  771. éü
  772. Dg=┬({
  773. 112,119,97,100,100,101,114,46,105,110,105},{
  774. 119})
  775. ¼(Dg,{
  776. 68,79,79,77,32,80,97,116,104,32,61,32}&DA[1]&{
  777. 10})
  778. ¼(Dg,{
  779. 80,87,65,68,32,80,97,116,104,32,61,32}&DA[1]&{
  780. 92,80,87,65,68,10})
  781. ¼(Dg,{
  782. 32,32,32,32,83,107,105,108,108,32,61,32,51,10})
  783. ├(Dg)
  784. ╡()
  785. De()
  786. éä
  787. äDi()
  788. ░Dj
  789. ¡Dk,Dl
  790. ╡()
  791. De()
  792. Db(14,0)
  793. Dk=┬({
  794. 112,119,97,100,100,101,114,46,101,120},{
  795. 114})
  796. üöDkâ
  797. ╡()
  798. ¼(1,{
  799. 66,97,100,32,111,114,32,109,105,115,115,105,110,103,32,80,87,65,68,68,
  800. 69,82,46,69,88})
  801. ╤(0)
  802. éü
  803. Dl=┬({
  804. 112,119,97,100,100,101,114,46,119,97,115},{
  805. 119})
  806. Dj={}
  807. è1ê
  808. Dj=╕(Dk)
  809. ü╝(Dj)â
  810. É
  811. éü
  812. ü┐({
  813. 67,84,61,48},Dj)â
  814. Dj={
  815. 67,84,61,49,10}
  816. éü
  817. ü┐({
  818. 68,68,91,49,93,61,35},Dj)â
  819. Dj={
  820. 68,68,91,49,93,61,35,48,48,10}
  821. éü
  822. ü┐({
  823. 68,68,91,50,93,61,35},Dj)â
  824. Dj={
  825. 68,68,91,50,93,61,35,48,48,10}
  826. éü
  827. ü┐({
  828. 68,68,91,51,93,61,35},Dj)â
  829. Dj={
  830. 68,68,91,51,93,61,35,48,48,10}
  831. éü
  832. ü┐({
  833. 67,122,61,123},Dj)â
  834. Dj=╕(Dk)
  835. ü┐({
  836. 68,69,61,123},Dj)â
  837. ┤(Dl,{
  838. 37,115},{Dj})
  839. éü
  840. Dj={
  841. 67,122,61,123,10,56,53,44,55,56,44,56,50,44,54,57,44,55,49,
  842. 44,55,51,44,56,51,44,56,52,44,54,57,44,56,50,44,54,57,44,54,
  843. 56,125,10}
  844. éü
  845. ┤(Dl,{
  846. 37,115},{Dj})
  847. éè
  848. ├(Dk)
  849. ├(Dl)
  850. ╦({
  851. 100,101,108,32,112,119,97,100,100,101,114,46,101,120},2)
  852. ╦({
  853. 114,101,110,32,112,119,97,100,100,101,114,46,119,97,115,32,112,119,97,100,
  854. 100,101,114,46,101,120},2)
  855. ¼(1,{
  856. 10,84,104,105,115,32,99,111,112,121,32,111,102,32,80,87,65,68,68,
  857. 69,82,32,104,97,115,32,98,101,101,110,32,99,111,110,118,101,114,116,101,
  858. 100,32,116,111,32,115,104,97,114,101,119,97,114,101,46,10,10})
  859. ╤(0)
  860. éä
  861. äDg()
  862. ░Dh
  863. ¡Dj,Dk
  864. ╡()
  865. De()
  866. DX({
  867. 32,32,67,111,110,103,114,97,116,117,108,97,116,105,111,110,115,46,32,69,
  868. 105,116,104,101,114,32,121,111,117,32,99,114,97,99,107,101,100,32,116,104,
  869. 101,32,99,111,100,101,32,111,114,32,121,111,117,32,112,97,105,100,32,102,
  870. 111,114,32,116,104,105,115}&
  871. {
  872. 32,112,114,111,103,114,97,109,46},4,1,14,0)
  873. DX({
  874. 73,102,32,121,111,117,32,104,97,118,101,32,108,101,103,97,108,108,121,32,
  875. 114,101,103,105,115,116,101,114,101,100,44,32,116,104,97,110,107,32,121,111,
  876. 117,32,102,111,114,32,98,117,121,105,110,103,32,111,117,114,32,115,111,102,
  877. 116,119,97,114,101,46}&
  878. {
  879. 32,73,102,32,121,111,117},5,1,14,0)
  880. DX({
  881. 99,114,97,99,107,101,100,32,116,104,101,32,99,111,100,101,44,32,115,101,
  882. 110,100,32,117,115,32,97,32,108,101,116,116,101,114,44,32,116,101,108,108,
  883. 105,110,103,32,117,115,32,104,111,119,32,121,111,117,32,100,105,100,32,105,
  884. 116,44,32,97,108,111,110,103}&
  885. {
  886. 32,119,105,116,104,32,116,104,101},6,1,14,0)
  887. DX({
  888. 114,101,103,105,115,116,114,97,116,105,111,110,32,102,111,114,109,44,32,97,
  889. 110,100,32,119,101,39,108,108,32,111,102,102,105,99,105,97,108,108,121,32,
  890. 114,101,103,105,115,116,101,114,32,121,111,117,46},7,1,14,0)
  891. CI=0
  892. èöCIê
  893. Cw=Cz
  894. DX({
  895. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  896. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  897. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32},16,27,14,0)
  898. DX({
  899. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  900. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  901. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32},18,1,14,0)
  902. DX({
  903. 84,104,101,32,110,97,109,101,32,121,111,117,32,115,112,101,99,105,102,121,
  904. 32,104,101,114,101,32,105,115,32,119,104,111,32,116,104,105,115,32,99,111,
  905. 112,121,32,111,102,32,80,87,65,68,68,69,82,32,119,105,108,108,32,98,
  906. 101,32}&
  907. {
  908. 108,101,103,97,108,108,121},12,1,11,0)
  909. DX({
  910. 114,101,103,105,115,116,101,114,101,100,32,116,111,46,32,73,116,32,119,105,
  911. 108,108,32,97,108,115,111,32,98,101,32,100,105,115,112,108,97,121,101,100,
  912. 32,97,116,32,116,104,101,32,98,111,116,116,111,109,32}&
  913. {
  914. 111,102,32,116,104,101,32,115,99,114,101,101,110},13,1,11,0)
  915. DX({
  916. 111,110,32,80,87,65,68,68,69,82,39,115,32,109,97,105,110,32,109,101,
  917. 110,117,32,102,114,111,109,32,110,111,119,32,111,110,46},14,1,11,0)
  918. DX({
  919. 80,108,101,97,115,101,32,116,121,112,101,32,105,110,32,121,111,117,114,32,
  920. 110,97,109,101,58,32},16,1,11,0)
  921. Db(14,0)
  922. »(16,27)
  923. Cw=╕(0)
  924. Cw=Cw[1..½(Cw)-1]
  925. ü½(Cw)>40â
  926. Cw=Cw[1..40]
  927. éü
  928. »(16,27)
  929. ¼(1,Cw)
  930. ¼(1,{
  931. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  932. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  933. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  934. 32,32,32,32,32,32,32})
  935. Db(11,0)
  936. »(18,1)
  937. ¼(1,{
  938. 73,115,32,116,104,105,115,32,99,111,114,114,101,99,116,63,32,32,32,89,
  939. 47,78,32,32})
  940. CM=-1
  941. èCM=-1ê
  942. CM=╣()
  943. éè
  944. üCM=89ÅCM=121â
  945. CI=1
  946. éü
  947. éè
  948. ╡()
  949. Db(14,0)
  950. ¼(1,{
  951. 82,101,103,105,115,116,101,114,105,110,103,32,121,111,117,114,32,99,111,112,
  952. 121,32,111,102,32,80,87,65,68,68,69,82,46})
  953. Dj=┬({
  954. 112,119,97,100,100,101,114,46,101,120},{
  955. 114})
  956. üöDjâ
  957. ╡()
  958. ¼(1,{
  959. 66,97,100,32,111,114,32,109,105,115,115,105,110,103,32,80,87,65,68,68,
  960. 69,82,46,69,88})
  961. ╤(0)
  962. éü
  963. Dk=┬({
  964. 112,119,97,100,100,101,114,46,119,97,115},{
  965. 119})
  966. Dh={}
  967. CP=1
  968. è1ê
  969. Dh=╕(Dj)
  970. CP=CP+1
  971. üö═(CP,230)â¼(1,{
  972. 46})éü
  973. ü╝(Dh)â
  974. É
  975. éü
  976. üö┐({
  977. 67,122,61,123},Dh)Äö┐({
  978. 67,84,61,49},Dh)â
  979. ┤(Dk,{
  980. 37,115},{Dh})
  981. éü
  982. ü┐({
  983. 67,84,61,49},Dh)â
  984. ┤(Dk,{
  985. 37,115,10},{{
  986. 67,84,61,48}})
  987. éü
  988. ü┐({
  989. 67,122,61,123},Dh)â
  990. ┤(Dk,{
  991. 37,115,10},{{
  992. 67,122,61,123}})
  993. åDl=1ì½(Cw)ê
  994. ┤(Dk,{
  995. 37,100},{Cw[Dl]})
  996. üDl<½(Cw)â
  997. ¼(Dk,{
  998. 44})
  999. éü
  1000. éå
  1001. ┤(Dk,{
  1002. 37,115,10},{{
  1003. 125}})
  1004. Dh=╕(Dj)
  1005. éü
  1006. éè
  1007. ├(Dj)
  1008. ├(Dk)
  1009. ╦({
  1010. 100,101,108,32,112,119,97,100,100,101,114,46,101,120},2)
  1011. ╦({
  1012. 114,101,110,32,112,119,97,100,100,101,114,46,119,97,115,32,112,119,97,100,
  1013. 100,101,114,46,101,120},2)
  1014. Cz=Cw
  1015. CT=0
  1016. éä
  1017. äDh()
  1018. ¡Dj
  1019. Dj=┬({
  1020. 112,119,97,100,100,101,114,46,114,101,103},{
  1021. 119})
  1022. ¼(Dj,{
  1023. 32,32,80,87,65,68,68,69,82,32,32,32,32,32,32,32,86,101,114,115,
  1024. 105,111,110,32})
  1025. ¼(Dj,DL)
  1026. ¼(Dj,{
  1027. 32,32,32,32,32,32,82,101,103,105,115,116,114,97,116,105,111,110,32,70,
  1028. 111,114,109,32,32,32,32,32,32,83,101,114,105,97,108,32,78,117,109,98,
  1029. 101,114,32})
  1030. ┤(Dj,{
  1031. 37,100,45,37,115,10},{CV,DM})
  1032. ¼(Dj,{
  1033. 10,10,32,32,82,101,103,105,115,116,114,97,116,105,111,110,32,111,
  1034. 102,32,115,104,97,114,101,119,97,114,101,32,97,108,108,111,119,115})
  1035. ¼(Dj,{
  1036. 32,115,111,102,116,119,97,114,101,32,100,101,118,101,108,111,112,101,114,115,
  1037. 32,108,105,107,101,32,77,97,71,32,83,111,102,116,119,97,114,101,32,116,
  1038. 111,10,99,111,110,116,105,110,117,101,32,99,114,101,97,116,105,110,103,
  1039. 32,113,117,97,108,105,116,121})
  1040. ¼(Dj,{
  1041. 32,115,111,102,116,119,97,114,101,44,32,97,110,100,32,97,116,32,116,104,
  1042. 101,32,115,97,109,101,32,116,105,109,101,44,32,111,102,102,101,114,32,105,
  1043. 116,32,116,111,32,121,111,117,10,97,116,32,97,32,114,101,97,115,111,
  1044. 110,97,98,108,101})
  1045. ¼(Dj,{
  1046. 32,112,114,105,99,101,46,32,65,108,108,32,114,101,103,105,115,116,101,114,
  1047. 101,100,32,117,115,101,114,115,32,119,105,108,108,32,114,101,99,101,105,118,
  1048. 101,32,105,110,115,116,97,110,116,32,114,101,103,105,115,116,114,97,116,105,
  1049. 111,110,10,111,102})
  1050. ¼(Dj,{
  1051. 32,80,87,65,68,68,69,82,44,32,97,110,100,32,49,32,102,117,116,117,
  1052. 114,101,32,117,112,103,114,97,100,101,46,32,89,111,117,32,99,97,110,32,
  1053. 97,108,115,111,32,103,101,116,32,116,104,101,32,108,97,116,101,115,116,32,
  1054. 118,101,114,115,105,111,110})
  1055. ¼(Dj,{
  1056. 32,111,110,32,100,105,115,107,45,10,101,116,116,101,32,102,111,114,32,
  1057. 97,110,32,101,120,116,114,97,32,36,49,46,48,48,46,32,73,102,32,121,
  1058. 111,117,32,104,97,118,101,32,97,110,121,32,99,111,109,109,101,110,116,115,
  1059. 32,111,114})
  1060. ¼(Dj,{
  1061. 32,112,114,111,98,108,101,109,115,32,119,105,116,104,32,80,87,65,68,68,
  1062. 69,82,44,10,112,108,101,97,115,101,32,99,111,110,116,97,99,116,32,
  1063. 117,115,32,97,116,32,111,117,114,32,98,117,115,105,110,101,115,115,32,97,
  1064. 100,100,114,101,115,115,32,111,114})
  1065. ¼(Dj,{
  1066. 32,69,45,109,97,105,108,58,32,109,105,108,101,115,46,98,97,100,111,118,
  1067. 105,99,107,64,112,99,111,104,105,111,46,99,111,109,10,10,83,101,
  1068. 110,100,32,116,104,105,115,32,114,101,103,105,115,116,114,97,116,105,111,110,
  1069. 32,102,111,114,109,32,116,111,58,10,10,9,9})
  1070. ¼(Dj,{
  1071. 77,97,71,32,83,111,102,116,119,97,114,101,10,9,9,49,57,50,50,
  1072. 32,83,110,111,119,32,82,100,46,10,9,9,83,117,105,116,101,32,49,
  1073. 48,50,10})
  1074. ¼(Dj,{
  1075. 9,9,80,97,114,109,97,44,32,79,72,32,32,52,52,49,51,52,10,
  1076. 10,77,97,107,101,32,99,104,101,99,107,115,32,112,97,121,97,98,108,
  1077. 101,32,116,111,58})
  1078. ¼(Dj,{
  1079. 32,32,32,71,114,101,103,111,114,121,32,74,46,32,83,116,114,105,99,107,
  1080. 32,32,97,110,100,32,32,77,105,108,101,115,32,67,46,32,66,97,100,111,
  1081. 118,105,99,107,10,10,77,97,71,32,119,101,108,99,111,109,101,115,
  1082. 32,111,114,100,101,114,115})
  1083. ¼(Dj,{
  1084. 32,102,114,111,109,32,111,117,116,115,105,100,101,32,116,104,101,32,85,46,
  1085. 83,46,32,70,111,114,101,105,103,110,32,99,104,101,99,107,115,32,109,117,
  1086. 115,116,32,98,101,32,105,110,32,85,46,83,46,32,102,117,110,100,115,10,100,114,97,119,110,32,111,110})
  1087. ¼(Dj,{
  1088. 32,97,32,85,46,83,46,32,98,97,110,107,46,32,73,102,32,121,111,117,
  1089. 32,99,97,110,39,116,32,103,101,116,32,97,32,99,104,101,99,107,32,100,
  1090. 114,97,119,110,32,111,110,32,97,32,85,46,83,46,32,98,97,110,107,44,
  1091. 32,112,108,101,97,115,101,10})
  1092. ¼(Dj,{
  1093. 111,98,116,97,105,110,32,97,32,34,112,111,115,116,97,108,32,109,111,
  1094. 110,101,121,32,111,114,100,101,114,34,32,105,110,32,85,46,83,46,32,
  1095. 102,117,110,100,115,32,102,114,111,109,32,121,111,117,114,32,108,111,99,97,
  1096. 108,32,112,111,115,116})
  1097. ¼(Dj,{
  1098. 32,111,102,102,105,99,101,46,10,10,10,32,32,32,78,97,109,
  1099. 101,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1100. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,80,114,111,100,
  1101. 117,99,116})
  1102. ¼(Dj,{
  1103. 32,32,32,32,32,32,67,111,115,116,32,101,97,46,32,67,111,112,105,101,
  1104. 115,32,32,84,111,116,97,108,10,32,32,32,32,32,32,32,32,32,32,
  1105. 32,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1106. 45,45,45,45,45,45,45,45})
  1107. ¼(Dj,{
  1108. 32,32,32,32,45,45,45,45,45,45,45,32,32,32,32,32,32,45,45,45,
  1109. 45,45,45,45,32,32,45,45,45,45,45,32,32,32,45,45,45,45,45,45,
  1110. 45,10,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1111. 32,32,32,32,32,32,32,32,32})
  1112. ¼(Dj,{
  1113. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,80,87,65,68,
  1114. 68,69,82,32,32,32,32,32,32,32,49,48,46,48,48,32,32,120,32,32,
  1115. 32,32,32,32,61,10,32,32,32,65,100,100,114,101,115,115,32,32,32,
  1116. 32,32,32,32,32,32,32,32,32})
  1117. ¼(Dj,{
  1118. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1119. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1120. 32,32,32,45,45,45,45,32,32,32,45,45,45,45,45,45,45,10,32,
  1121. 32,32,32,32,32,32,32,32,32})
  1122. ¼(Dj,{
  1123. 32,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1124. 45,45,45,45,45,45,45,45,32,32,32,32,80,114,111,103,114,97,109,32,
  1125. 68,105,115,107,32,32,32,49,46,48,48,32,32,120,32,32,32,32,32,32,
  1126. 61,10,32,32,32,32,32,32})
  1127. ¼(Dj,{
  1128. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1129. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,40,79,117,116,
  1130. 115,105,100,101,32,85,46,83,46,32,32,51,46,48,48,41,32,32,32,45,
  1131. 45,45,45,32,32,32})
  1132. ¼(Dj,{
  1133. 45,45,45,45,45,45,45,10,32,32,32,32,32,32,32,32,32,32,32,
  1134. 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1135. 45,45,45,45,45,45,45,10,32,32,32,32,32,32,32,32,32,32,32,
  1136. 32,32,32,32,32,32,32,32,32})
  1137. ¼(Dj,{
  1138. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1139. 32,32,68,105,115,107,32,83,105,122,101,32,32,32,53,46,50,53,40,32,
  1140. 41,32,32,51,46,53,40,32,41,10,32,32,32,32,32,32,32,32,32,
  1141. 32,32})
  1142. ¼(Dj,{
  1143. 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1144. 45,45,45,45,45,45,45,10,32,32,32,67,111,117,110,116,114,121,10,32,32,32,32,32,32,32,32,32,32,32})
  1145. ¼(Dj,{
  1146. 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1147. 45,45,45,45,45,45,45,10,10,32,32,32,80,104,111,110,101,32,
  1148. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1149. 32,32,32,32,32,32,32,32,32})
  1150. ¼(Dj,{
  1151. 32,32,32,32,32,32,32,84,111,116,97,108,32,69,110,99,108,111,115,101,
  1152. 100,32,87,105,116,104,32,79,114,100,101,114,10,32,32,32,32,32,32,
  1153. 32,32,32,32,32,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1154. 45,45,45,45,45,45,45,45,45})
  1155. ¼(Dj,{
  1156. 45,45,45,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1157. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,45,45,45,
  1158. 45,45,45,45,10,10})
  1159. ¼(Dj,{
  1160. 42,42,42,42,42,32,77,65,75,69,32,83,85,82,69,32,84,72,65,84,
  1161. 32,84,72,69,32,83,69,82,73,65,76,32,78,85,77,66,69,82,32,79,
  1162. 78,32,84,72,73,83,32,70,79,82,77,32,77,65,84,67,72,69,83})
  1163. ¼(Dj,{
  1164. 32,89,79,85,82,32,67,79,80,89,32,79,70,32,42,42,42,42,42,10})
  1165. ¼(Dj,{
  1166. 42,42,32,80,87,65,68,68,69,82,46,32,73,70,32,73,84,32,73,83,
  1167. 32,87,82,79,78,71,44,32,84,72,69,32,82,69,71,73,83,84,82,65,
  1168. 84,73,79,78,32,67,79,68,69,32,87,69,32,83,69,78,68,32,89,79,
  1169. 85,32,87,73,76,76,32,78,79,84})
  1170. ¼(Dj,{
  1171. 32,87,79,82,75,46,42,42,10,10})
  1172. ¼(Dj,{
  1173. 32,32,32,69,120,112,108,97,105,110,32,98,101,108,111,119,32,119,104,101,
  1174. 114,101,32,121,111,117,114,32,99,111,112,121,32,111,102,32,80,87,65,68,
  1175. 68,69,82,32,99,97,109,101,32,102,114,111,109,46,32,73,102,32,66,66,
  1176. 83})
  1177. ¼(Dj,{
  1178. 44,32,105,110,99,108,117,100,101,32,110,117,109,98,101,114,46,10,10,10,32,32,32,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1179. 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1180. 45,45,45,45,45,45,45,45,45,45,45})
  1181. ¼(Dj,{
  1182. 45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1183. 45,45,45,45,45,45,45,45,45,10,10,32,32,80,108,101,97,115,
  1184. 101,32,105,110,99,108,117,100,101,32,97,110,121,32,113,117,101,115,116,105,
  1185. 111,110,115,32,111,114,32,99,111})
  1186. ¼(Dj,{
  1187. 109,109,101,110,116,115,32,105,110,32,116,104,101,32,115,112,97,99,101,32,
  1188. 112,114,111,118,105,100,101,100,32,98,101,108,111,119,46,10,10,10,10,10,10,10,10,10,32,32,32,32,32,32,32,
  1189. 32,32,32,32,32,32})
  1190. ¼(Dj,{
  1191. 32,32,32,32,32,32,32,32,32,32,32,32,83,105,103,110,97,116,117,114,
  1192. 101,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1193. 32,32,32,32,32,32,32,32,32,32,32,68,97,116,101,10,32,32,32,
  1194. 32,32,32,32,32,32,32,32,32,32})
  1195. ¼(Dj,{
  1196. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1197. 32,32,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,
  1198. 45,45,45,45,45,45,45,45,45,45,32,32,32,32,32,32,45,45,45,45,
  1199. 45,45,45,45,45,45,10,10})
  1200. ¼(Dj,{
  1201. 32,32,80,87,65,68,68,69,82,32,32,32,32,32,32,32,86,101,114,115,
  1202. 105,111,110,32})
  1203. ¼(Dj,DL)
  1204. ¼(Dj,{
  1205. 32,32,32,32,32,32,82,101,103,105,115,116,114,97,116,105,111,110,32,70,
  1206. 111,114,109,32,32,32,32,32,32,83,101,114,105,97,108,32,78,117,109,98,
  1207. 101,114,32})
  1208. ┤(Dj,{
  1209. 37,100,45,37,115},{CV,DM})
  1210. ├(Dj)
  1211. éä
  1212. äDk()
  1213. ░Dl
  1214. ¡Dj,Dm
  1215. Ca=╢(((DK[1]*365.25)+(DK[2]*30.4375)+(DK[3]))*19)
  1216. ╡()
  1217. Dj=┬({
  1218. 112,119,97,100,100,101,114,46,101,120},{
  1219. 114})
  1220. üöDjâ
  1221. ╡()
  1222. ¼(1,{
  1223. 66,97,100,32,111,114,32,109,105,115,115,105,110,103,32,80,87,65,68,68,
  1224. 69,82,46,69,88})
  1225. ╤(0)
  1226. éü
  1227. Dm=┬({
  1228. 112,119,97,100,100,101,114,46,119,97,115},{
  1229. 119})
  1230. Dl={}
  1231. DD={0,0,0}
  1232. è1ê
  1233. Dl=╕(Dj)
  1234. ü╝(Dl)â
  1235. É
  1236. éü
  1237. ü½(Dl)=10â
  1238. ü┐({
  1239. 68,68,91,49,93,61,35},Dl)â
  1240. ü║(2)-1â
  1241. Dl={
  1242. 68,68,91,49,93,61,35}&48+║(4)
  1243. Dl=▒(Dl,47+║(5))
  1244. Dl=▒(Dl,10)
  1245. à
  1246. Dl={
  1247. 68,68,91,49,93,61,35}&48+║(4)
  1248. Dl=▒(Dl,64+║(5))
  1249. Dl=▒(Dl,10)
  1250. éü
  1251. üDl[9]>57â
  1252. DD[1]=((Dl[8]-48)*16)+(Dl[9]-55)
  1253. à
  1254. DD[1]=((Dl[8]-48)*16)+(Dl[9]-48)
  1255. éü
  1256. éü
  1257. ü┐({
  1258. 68,68,91,50,93,61,35},Dl)â
  1259. ü║(2)-1â
  1260. Dl={
  1261. 68,68,91,50,93,61,35}&47+║(5)
  1262. Dl=▒(Dl,47+║(5))
  1263. Dl=▒(Dl,10)
  1264. à
  1265. Dl={
  1266. 68,68,91,50,93,61,35}&47+║(5)
  1267. Dl=▒(Dl,64+║(5))
  1268. Dl=▒(Dl,10)
  1269. éü
  1270. üDl[9]>57â
  1271. DD[2]=((Dl[8]-48)*16)+(Dl[9]-55)
  1272. à
  1273. DD[2]=((Dl[8]-48)*16)+(Dl[9]-48)
  1274. éü
  1275. éü
  1276. ü┐({
  1277. 68,68,91,51,93,61,35},Dl)â
  1278. ü║(2)-1â
  1279. Dl={
  1280. 68,68,91,51,93,61,35}&47+║(5)
  1281. Dl=▒(Dl,47+║(5))
  1282. Dl=▒(Dl,10)
  1283. à
  1284. Dl={
  1285. 68,68,91,51,93,61,35}&47+║(5)
  1286. Dl=▒(Dl,64+║(5))
  1287. Dl=▒(Dl,10)
  1288. éü
  1289. üDl[9]>57â
  1290. DD[3]=((Dl[8]-48)*16)+(Dl[9]-55)
  1291. à
  1292. DD[3]=((Dl[8]-48)*16)+(Dl[9]-48)
  1293. éü
  1294. éü
  1295. éü
  1296. ü┐({
  1297. 67,97,61,48},Dl)â
  1298. ┤(Dm,{
  1299. 37,115,37,100,10},{{
  1300. 67,97,61},Ca})
  1301. à
  1302. ┤(Dm,{
  1303. 37,115},{Dl})
  1304. éü
  1305. éè
  1306. ├(Dj)
  1307. ├(Dm)
  1308. ╦({
  1309. 100,101,108,32,112,119,97,100,100,101,114,46,101,120},2)
  1310. ╦({
  1311. 114,101,110,32,112,119,97,100,100,101,114,46,119,97,115,32,112,119,97,100,
  1312. 100,101,114,46,101,120},2)
  1313. CV=(DD[1]*10000)+(DD[2]*100)+DD[3]
  1314. Dh()
  1315. éä
  1316. äDl()
  1317. üCV=0â
  1318. Dk()
  1319. éü
  1320. CG=(DD[1]*361)+(DD[2]*361)+(DD[3]*361)
  1321. ╡()
  1322. Db(12,0)
  1323. ¼(1,{
  1324. 32,32,213,205,209,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,
  1325. 205,205,205,205,205,205,205,209,205,184,10})
  1326. Db(10,0)
  1327. ¼(1,{
  1328. 218,196})
  1329. Db(12,0)
  1330. ¼(1,{
  1331. 179,179,179,32,32,32,32,32,32})
  1332. Db(1,0)
  1333. ¼(1,{
  1334. 220,219,220,32,32,32,32,220,219,220,32,32,32,32,32,32})
  1335. Db(12,0)
  1336. ¼(1,{
  1337. 179,179,179})
  1338. Db(10,0)
  1339. ¼(1,{
  1340. 196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,
  1341. 196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,
  1342. 196,196,196,196,196,196,196,196,191,10})
  1343. ¼(1,{
  1344. 179})
  1345. Db(11,0)
  1346. ¼(1,{
  1347. 176})
  1348. Db(12,0)
  1349. ¼(1,{
  1350. 179,179,179,32,32,32})
  1351. Db(1,0)
  1352. ¼(1,{
  1353. 220,219,219,219,219,219,219,220,220,219,219,219,219,219,219,220,32,32,32})
  1354. Db(12,0)
  1355. ¼(1,{
  1356. 179,179,179})
  1357. Db(11,0)
  1358. ¼(1,{
  1359. 176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,
  1360. 176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,
  1361. 176,176,176,176,176,176,176,176})
  1362. Db(10,0)
  1363. ¼(1,{
  1364. 179,10})
  1365. ¼(1,{
  1366. 179})
  1367. Db(11,0)
  1368. ¼(1,{
  1369. 176})
  1370. Db(12,0)
  1371. ¼(1,{
  1372. 179,179,179,32,32})
  1373. Db(1,0)
  1374. ¼(1,{
  1375. 220,219,219,219,219,219,219,219,219,219,219,219,219,219,219,219,219,220,32,32})
  1376. Db(12,0)
  1377. ¼(1,{
  1378. 179,179,179,32})
  1379. Db(15,0)
  1380. ¼(1,{
  1381. 80,87,65,68,68,69,82,32,118})
  1382. ¼(1,DL)
  1383. ¼(1,{
  1384. 32,32,32,83,72,65,82,69,87,65,82,69,32,32,32,32,77,97,71,32,
  1385. 83,111,102,116,119,97,114,101,32,49,57,57,52,32})
  1386. Db(11,0)
  1387. ¼(1,{
  1388. 176})
  1389. Db(10,0)
  1390. ¼(1,{
  1391. 179,10})
  1392. ¼(1,{
  1393. 179})
  1394. Db(11,0)
  1395. ¼(1,{
  1396. 176})
  1397. Db(12,0)
  1398. ¼(1,{
  1399. 179,179,179,32})
  1400. Db(1,0)
  1401. ¼(1,{
  1402. 220,219,219,219,219,219,223,219,219,219,219,219,219,223,219,219,219,219,219,220,
  1403. 32})
  1404. Db(12,0)
  1405. ¼(1,{
  1406. 179,179,179})
  1407. Db(11,0)
  1408. ¼(1,{
  1409. 176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,
  1410. 176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,176,
  1411. 176,176,176,176,176,176,176,176})
  1412. Db(10,0)
  1413. ¼(1,{
  1414. 179,10})
  1415. ¼(1,{
  1416. 192,196})
  1417. Db(12,0)
  1418. ¼(1,{
  1419. 179,179,179,32})
  1420. Db(1,0)
  1421. ¼(1,{
  1422. 219,219,219,219,219,32,32,32,32})
  1423. ¼(1,{
  1424. 223,223,32,32,32,32})
  1425. Db(1,0)
  1426. ¼(1,{
  1427. 219,219,219,219,219,32})
  1428. Db(12,0)
  1429. ¼(1,{
  1430. 179,179,179})
  1431. Db(10,0)
  1432. ¼(1,{
  1433. 196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,
  1434. 196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,196,
  1435. 196,196,196,196,196,196,196,196,217,10})
  1436. Db(12,0)
  1437. ¼(1,{
  1438. 32,32,179,179,179,32})
  1439. Db(1,0)
  1440. ¼(1,{
  1441. 219,219,219,219,219,32,32,32})
  1442. Db(15,0)
  1443. ¼(1,{
  1444. 220,219,219,220,32,32,32})
  1445. Db(1,0)
  1446. ¼(1,{
  1447. 219,219,219,219,219,32})
  1448. Db(12,0)
  1449. ¼(1,{
  1450. 179,179,179,32,32,32,32,32,32,32,32,32,32})
  1451. Db(11,0)
  1452. ¼(1,{
  1453. 89,111,117,114,32,83,101,114,105,97,108,32,78,117,109,98,101,114,32,105,
  1454. 115,32})
  1455. Db(10,0)
  1456. ┤(1,{
  1457. 37,100,45,37,115,10},{CV,DM})
  1458. Db(12,0)
  1459. ¼(1,{
  1460. 32,32,179,179,179,32})
  1461. Db(1,0)
  1462. ¼(1,{
  1463. 219,219,219,219,219,32,32})
  1464. Db(15,0)
  1465. ¼(1,{
  1466. 220,219,219,219,219,220,32,32})
  1467. Db(1,0)
  1468. ¼(1,{
  1469. 219,219,219,219,219,32})
  1470. Db(12,0)
  1471. ¼(1,{
  1472. 179,179,179,10})
  1473. ¼(1,{
  1474. 32,32,179,179,179,32})
  1475. Db(1,0)
  1476. ¼(1,{
  1477. 219,219,219,219,219,32})
  1478. Db(15,0)
  1479. ¼(1,{
  1480. 219,219,219,223,223,219,219,219,32})
  1481. Db(1,0)
  1482. ¼(1,{
  1483. 219,219,219,219,219,32})
  1484. Db(12,0)
  1485. ¼(1,{
  1486. 179,179,179,32,32})
  1487. Db(11,0)
  1488. ¼(1,{
  1489. 84,104,105,115,32,112,114,111,103,114,97,109,32,105,115,32,83,72,65,82,
  1490. 69,87,65,82,69,46,32,84,114,121,32,98,101,102,111,114,101,32,121,111,
  1491. 117,32,98,117,121,46,10})
  1492. Db(12,0)
  1493. ¼(1,{
  1494. 32,32,179,179,179,32})
  1495. Db(1,0)
  1496. ¼(1,{
  1497. 219,219,219,219,219,32})
  1498. Db(15,0)
  1499. ¼(1,{
  1500. 219,219,219,219,219,219,219,219,32})
  1501. Db(1,0)
  1502. ¼(1,{
  1503. 219,219,219,219,219,32})
  1504. Db(12,0)
  1505. ¼(1,{
  1506. 179,179,179,32,32})
  1507. Db(11,0)
  1508. ¼(1,{
  1509. 73,102,32,121,111,117,32,105,110,116,101,110,100,32,116,111,32,117,115,101,
  1510. 32,80,87,65,68,68,69,82,32,102,111,114,32,109,111,114,101,32,116,104,
  1511. 97,110,32,49,48,10})
  1512. Db(12,0)
  1513. ¼(1,{
  1514. 32,32,179,179,179,32})
  1515. Db(1,0)
  1516. ¼(1,{
  1517. 219,219,219,219,219,32})
  1518. Db(15,0)
  1519. ¼(1,{
  1520. 219,223,223,32,32,223,223,219,32})
  1521. Db(1,0)
  1522. ¼(1,{
  1523. 219,219,219,219,219,32})
  1524. Db(12,0)
  1525. ¼(1,{
  1526. 179,179,179,32,32})
  1527. Db(11,0)
  1528. ¼(1,{
  1529. 100,97,121,115,44,32,121,111,117,32,109,117,115,116,32,112,97,121,32,102,
  1530. 111,114,32,105,116,46,32,73,84,32,73,83,32,78,79,84,32,70,82,69,
  1531. 69,46,10})
  1532. Db(12,0)
  1533. ¼(1,{
  1534. 32,32,179,179,179,32})
  1535. Db(1,0)
  1536. ¼(1,{
  1537. 219,219,219,223,223,32})
  1538. Db(14,0)
  1539. ¼(1,{
  1540. 220,220,219,219,219,219,220,220,32})
  1541. Db(1,0)
  1542. ¼(1,{
  1543. 223,223,219,219,219,32})
  1544. Db(12,0)
  1545. ¼(1,{
  1546. 179,179,179,10})
  1547. ¼(1,{
  1548. 32,32,179,179,179,32})
  1549. Db(1,0)
  1550. ¼(1,{
  1551. 219,223,32})
  1552. Db(14,0)
  1553. ¼(1,{
  1554. 220,219,219,219,219,219,219,219,219,219,219,219,219,220,32})
  1555. Db(1,0)
  1556. ¼(1,{
  1557. 223,219,32})
  1558. Db(12,0)
  1559. ¼(1,{
  1560. 179,179,179,32,32})
  1561. Db(11,0)
  1562. ¼(1,{
  1563. 89,111,117,32,104,97,118,101,32,98,101,101,110,32,117,115,105,110,103,32,
  1564. 80,87,65,68,68,69,82,32,102,111,114,32})
  1565. Db(26,0)
  1566. ┤(1,{
  1567. 37,100},╢(((DK[1]*365.25)+(DK[2]*30.4375)+DK[3])-(Ca/19)))
  1568. Db(11,0)
  1569. ¼(1,{
  1570. 32,100,97,121,115,46,10})
  1571. Db(12,0)
  1572. ¼(1,{
  1573. 32,32,179,179,179,32,32})
  1574. Db(14,0)
  1575. ¼(1,{
  1576. 220,219,219,219,219,219,219,223,223,223,223,219,219,219,219,219,219,220,32,32})
  1577. Db(12,0)
  1578. ¼(1,{
  1579. 179,179,179,10})
  1580. ¼(1,{
  1581. 32,32,179,179,179,32})
  1582. Db(14,0)
  1583. ¼(1,{
  1584. 220,219,219,219,219,219,223,32,32,32,32,32,32,223,219,219,219,219,219,220,
  1585. 32})
  1586. Db(12,0)
  1587. ¼(1,{
  1588. 179,179,179,32,32})
  1589. Db(11,0)
  1590. ¼(1,{
  1591. 80,108,101,97,115,101,32,114,101,112,111,114,116,32,97,110,121,32,112,114,
  1592. 111,98,108,101,109,115,32,111,114,32,115,101,110,100,32,99,111,109,109,101,
  1593. 110,116,115,32,116,111,58,10})
  1594. Db(12,0)
  1595. ¼(1,{
  1596. 32,32,179,179,179,32})
  1597. Db(14,0)
  1598. ¼(1,{
  1599. 219,219,219,219,219,32,32,32,32,32,32,32,32,32,32,219,219,219,219,219,
  1600. 32})
  1601. Db(12,0)
  1602. ¼(1,{
  1603. 179,179,179,10})
  1604. ¼(1,{
  1605. 32,32,179,179,179,32})
  1606. Db(14,0)
  1607. ¼(1,{
  1608. 219,219,219,219,219,32,32,32,32,32,32,32,32,32,32,223,223,223,223,223,
  1609. 32})
  1610. Db(12,0)
  1611. ¼(1,{
  1612. 179,179,179,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1613. 32,32})
  1614. Db(13,0)
  1615. ¼(1,{
  1616. 77,97,71,32,83,111,102,116,119,97,114,101,10})
  1617. Db(12,0)
  1618. ¼(1,{
  1619. 32,32,179,179,179,32})
  1620. Db(14,0)
  1621. ¼(1,{
  1622. 219,219,219,219,219,32,32,32,32,32,32,32,219,219,219,219,219,219,219,219,
  1623. 32})
  1624. Db(12,0)
  1625. ¼(1,{
  1626. 179,179,179,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1627. 32,32})
  1628. Db(13,0)
  1629. ¼(1,{
  1630. 49,57,50,50,32,83,110,111,119,32,82,100,10})
  1631. Db(12,0)
  1632. ¼(1,{
  1633. 32,32,179,179,179,32})
  1634. Db(14,0)
  1635. ¼(1,{
  1636. 223,219,219,219,219,220,32,32,32,32,32,32,219,219,219,219,219,219,219,219,
  1637. 32})
  1638. Db(12,0)
  1639. ¼(1,{
  1640. 179,179,179,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1641. 32,32})
  1642. Db(13,0)
  1643. ¼(1,{
  1644. 83,117,105,116,101,32,35,49,48,50,10})
  1645. Db(12,0)
  1646. ¼(1,{
  1647. 32,32,179,179,179,32,32})
  1648. Db(14,0)
  1649. ¼(1,{
  1650. 219,219,219,219,219,220,220,32,32,32,32,32,220,219,219,219,219,219,219,32})
  1651. Db(12,0)
  1652. ¼(1,{
  1653. 179,179,179,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1654. 32,32})
  1655. Db(13,0)
  1656. ¼(1,{
  1657. 80,97,114,109,97,44,32,79,72,32,32,52,52,49,51,52,10})
  1658. Db(12,0)
  1659. ¼(1,{
  1660. 32,32,179,179,179,32,32,32})
  1661. Db(14,0)
  1662. ¼(1,{
  1663. 223,219,219,219,219,219,219,219,219,219,219,219,219,219,219,219,219,219,32})
  1664. Db(12,0)
  1665. ¼(1,{
  1666. 179,179,179,10})
  1667. ¼(1,{
  1668. 32,32,179,179,179,32,32,32,32,32,32})
  1669. Db(14,0)
  1670. ¼(1,{
  1671. 223,219,219,219,219,219,219,219,219,219,219,219,219,219,219,32})
  1672. Db(12,0)
  1673. ¼(1,{
  1674. 179,179,179,32})
  1675. Db(14,0)
  1676. ¼(1,{
  1677. 80,108,101,97,115,101,32,101,110,116,101,114,32,121,111,117,114,32,114,101,
  1678. 103,105,115,116,114,97,116,105,111,110,32,99,111,100,101,32,110,111,119,32,
  1679. 111,114,32,101,110,116,101,114,10})
  1680. Db(12,0)
  1681. ¼(1,{
  1682. 32,32,179,179,179,32,32,32,32,32,32,32,32,32})
  1683. Db(14,0)
  1684. ¼(1,{
  1685. 223,223,223,223,32,32,32,223,223,223,223,223,32})
  1686. Db(12,0)
  1687. ¼(1,{
  1688. 179,179,179,32})
  1689. Db(14,0)
  1690. ¼(1,{
  1691. 32,32,32,48,32,40,122,101,114,111,41,32,116,111,32,101,118,97,108,117,
  1692. 97,116,101,32,116,104,105,115,32,112,114,111,103,114,97,109,58,32,10})
  1693. Db(12,0)
  1694. ¼(1,{
  1695. 32,32,212,205,207,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,
  1696. 205,205,205,205,205,205,205,207,205,190})
  1697. Db(10,0)
  1698. »(23,70)
  1699. CB=CC(0)
  1700. ¼(1,{
  1701. 10,10})
  1702. ü╜(CB[2],CG)=0â
  1703. Dg()
  1704. éü
  1705. éä
  1706. äDj()
  1707. ¡Dm
  1708. CO=║(3)
  1709. üCO=1â
  1710. Cu={{
  1711. 32,73,110,32,111,114,100,101,114,32,102,111,114,32,77,97,71,32,116,111,
  1712. 32,99,111,110,116,105,110,117,101,32,112,114,111,100,117,99,105,110,103,32,
  1713. 113,117,97,108,105,116,121,32,115,111,102,116,119,97,114,101,44,32,119,101,
  1714. 32,110,101,101,100,32,121,111,117,32,116,111,32,114,101,103,105,115,116,101,
  1715. 114,46}}
  1716. éü
  1717. üCO=2â
  1718. Cu={{
  1719. 32,89,111,117,32,97,114,101,32,117,115,105,110,103,32,97,110,32,85,78,
  1720. 82,69,71,73,83,84,69,82,69,68,32,118,101,114,115,105,111,110,32,111,
  1721. 102,32,80,87,65,68,68,69,82,46}}
  1722. éü
  1723. üCO=3â
  1724. Cu={{
  1725. 32,80,108,101,97,115,101,32,99,111,110,115,105,100,101,114,32,114,101,103,
  1726. 105,115,116,101,114,105,110,103,32,80,87,65,68,68,69,82,46}}
  1727. éü
  1728. Db(10,0)
  1729. Cv=╗(46,80)
  1730. Dm=1
  1731. è╜(Cv,╗(46,79))ê
  1732. üDm<80â
  1733. Cv=╗(46,79-Dm)
  1734. üDm>½(Cu[1])â
  1735. Cv=Cv&Cu[1]&╗(46,79-((79-Dm)+½(Cu[1])))
  1736. à
  1737. Cv=Cv&Cu[1][1..Dm]
  1738. éü
  1739. éü
  1740. üDm>=80â
  1741. üDm>½(Cu[1])â
  1742. Cv=Cu[1][Dm-78..½(Cu[1])]&
  1743. ╗(46,78-(½(Cu[1])-(Dm-78)))
  1744. à
  1745. Cv=Cu[1][Dm-78..(Dm-78)+78]
  1746. éü
  1747. éü
  1748. DX(Cv,25,1,10,0)
  1749. Dm=Dm+1
  1750. CF=└()
  1751. è└()-CF<.1ê
  1752. éè
  1753. éè
  1754. éä
  1755. äDm()
  1756. ░Dn
  1757. ¡Do,Dp,Cd,Dq
  1758. «Dr,Ds
  1759. N(0)
  1760. DX({
  1761. 32,65,98,111,117,116,32},3,55,14,4)
  1762. ╡()
  1763. De()
  1764. Dn={0,0}
  1765. Dp=1
  1766. Dr={0}
  1767. Cd=0
  1768. ü╜(DC[Cp[3]],{
  1769. 82,69,65,68,32,68,79,67})=0â
  1770. Do=┬({
  1771. 112,119,97,100,100,101,114,46,100,111,99},{
  1772. 114})
  1773. üöDoâ
  1774. ╡()
  1775. ¼(1,{
  1776. 66,97,100,32,111,114,32,109,105,115,115,105,110,103,32,80,87,65,68,68,
  1777. 69,82,46,68,79,67})
  1778. ╤(0)
  1779. éü
  1780. à
  1781. Do=┬(DA[2]&{
  1782. 92}&DC[Cp[3]]&{
  1783. 46,84,88,84},{
  1784. 114})
  1785. éü
  1786. èöCdê
  1787. Dq=1
  1788. èDq<21ê
  1789. Dn=╕(Do)
  1790. Ds={{},{}}
  1791. üö╝(Dn)â
  1792. åCH=1ì½(Dn)ê
  1793. üDn[CH]>31â
  1794. Ds[1]=▒(Ds[1],Dn[CH])
  1795. éü
  1796. éå
  1797. éü
  1798. ü½(Ds[1])>80Ľ(Ds[1])<=160â
  1799. Ds[2]=Ds[1][81..½(Ds[1])]
  1800. Ds[1]=Ds[1][1..80]
  1801. DX(╗(32,80),2+Dq,1,11,0)
  1802. DX(Ds[1],2+Dq,1,11,0)
  1803. Dq=Dq+1
  1804. DX(╗(32,80),2+Dq,1,11,0)
  1805. DX(Ds[2],2+Dq,1,11,0)
  1806. à
  1807. DX(╗(32,80),2+Dq,1,11,0)
  1808. DX(Ds[1],2+Dq,1,11,0)
  1809. éü
  1810. Dq=Dq+1
  1811. éè
  1812. DX(╗(32,80),23,1,14,0)
  1813. DX(╗(32,80),24,1,14,0)
  1814. »(24,1)
  1815. ü╝(Dn)â
  1816. Db(14,0)
  1817. ¼(1,{
  1818. 32,32,76,101,102,116,32,66,117,116,116,111,110,32,61,32,69,120,105,116})
  1819. Db(10,0)
  1820. ┤(1,{
  1821. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,76,65,83,84,32,80,
  1822. 65,71,69,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32},{Dp})
  1823. à
  1824. Db(14,0)
  1825. ┤(1,{
  1826. 37,115,32,76,101,102,116,32,66,117,116,116,111,110,32,37,115},{31,31})
  1827. Db(10,0)
  1828. ┤(1,{
  1829. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1830. 80,65,71,69,32,37,100,32,32,32,32,32,32,32,32,32,32,32,32,32,
  1831. 32,32,32,32,32},{Dp})
  1832. éü
  1833. üDp>1â
  1834. Db(14,0)
  1835. »(24,61)
  1836. ┤(1,{
  1837. 37,115,32,82,105,103,104,116,32,66,117,116,116,111,110,32,37,115},{30,30})
  1838. à
  1839. Db(14,0)
  1840. ¼(1,{
  1841. 82,105,103,104,116,32,66,117,116,116,111,110,32,61,32,69,120,105,116})
  1842. éü
  1843. CO=1
  1844. èCOê
  1845. M(10)
  1846. CD=L()
  1847. ü«(CD)â
  1848. üCD[1]=Eâ
  1849. üDp>1â
  1850. CO=BR(Do,Dr[Dp-1])
  1851. Dp=Dp-1
  1852. à
  1853. Cd=1
  1854. É
  1855. éü
  1856. éü
  1857. üCD[1]=Câ
  1858. ü½(Dr)=Dpâ
  1859. Dr=▒(Dr,BS(Do))
  1860. éü
  1861. ü╝(Dn)â
  1862. Cd=1
  1863. É
  1864. éü
  1865. Dp=Dp+1
  1866. éü
  1867. CO=0
  1868. éü
  1869. éè
  1870. éè
  1871. N(1)
  1872. ├(Do)
  1873. éä
  1874. äDn()
  1875. ░Do
  1876. ¡Dp
  1877. Dp=┬({
  1878. 112,119,97,100,100,101,114,46,105,110,105},{
  1879. 114})
  1880. Cj={}
  1881. Do={}
  1882. è1ê
  1883. Do=╕(Dp)
  1884. ü╝(Do)â
  1885. É
  1886. éü
  1887. Do=Do[1..½(Do)-1]
  1888. Cj=▒(Cj,Do)
  1889. ¼(1,{
  1890. 46})
  1891. éè
  1892. ├(Dp)
  1893. ü┐({
  1894. 58,92},Cj[1])â
  1895. DA={Cj[1][┐({
  1896. 58,92},Cj[1])-1..½(Cj[1])]}
  1897. à
  1898. Df()
  1899. éü
  1900. ü┐({
  1901. 58,92},Cj[2])â
  1902. DA=DA&{Cj[2][┐({
  1903. 58,92},Cj[2])-1..½(Cj[2])]}
  1904. à
  1905. Df()
  1906. éü
  1907. åDq=1ì½(Cj[3])ê
  1908. üCj[3][Dq]<54ÄCj[3][Dq]>48â
  1909. CH=Dq
  1910. É
  1911. éü
  1912. éå
  1913. CU=Cj[3][CH]-48
  1914. üCU>5ÅCU<1â
  1915. CU=3
  1916. éü
  1917. éä
  1918. äDr()
  1919. ¡Ds
  1920. Ds=┬({
  1921. 112,119,97,100,100,101,114,46,105,110,105},{
  1922. 119})
  1923. ┤(Ds,{
  1924. 68,79,79,77,32,80,97,116,104,32,61,32,37,115,10},{DA[1]})
  1925. ┤(Ds,{
  1926. 80,87,65,68,32,80,97,116,104,32,61,32,37,115,10},{DA[2]})
  1927. ┤(Ds,{
  1928. 32,32,32,32,83,107,105,108,108,32,61,32,37,100,10},CU)
  1929. ├(Ds)
  1930. éä
  1931. äDo()
  1932. åDp=1ì5ê
  1933. üDB[2]=8+(Dp*2)â
  1934. CU=Dp 
  1935. éü
  1936. éå
  1937. N(0)
  1938. DX({
  1939. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32},3,2,14,0)
  1940. DX(DE[CU],3,╢((23-½(DE[CU]))/2),14,0)
  1941. CF=└()
  1942. è└()-CF<.65ê
  1943. éè
  1944. Dr()
  1945. DX({
  1946. 32,83,107,105,108,108,58,32},3,2,15,0)
  1947. üCU=1âDX({
  1948. 32,49},3,9,15,0)àDX({
  1949. 32,49},3,9,8,0)éü
  1950. üCU=2âDX({
  1951. 32,50},3,11,15,0)àDX({
  1952. 32,50},3,11,8,0)éü
  1953. üCU=3âDX({
  1954. 32,51},3,13,15,0)àDX({
  1955. 32,51},3,13,8,0)éü
  1956. üCU=4âDX({
  1957. 32,52},3,15,15,0)àDX({
  1958. 32,52},3,15,8,0)éü
  1959. üCU=5âDX({
  1960. 32,53,32},3,17,15,0)àDX({
  1961. 32,53,32},3,17,8,0)éü
  1962. N(1)
  1963. éä
  1964. æDq()
  1965. ü«(CD)â
  1966. ç(CD[3]/8)+1&(CD[2]/8)+1
  1967. éü
  1968. ç{0,0,0}
  1969. éæ
  1970. æDs()
  1971. ¡Dp,Dt,Ds,Du,Dv
  1972. DB=Dq()
  1973. Dp=DB[1]-4
  1974. üDB[2]=80â
  1975. Dt=8
  1976. à
  1977. Dt=╢(DB[2]/10)+1
  1978. éü
  1979. Ds=((Dt-1)*20)+Dp
  1980. Dv=(Dt*10)-8
  1981. Du=DB[1]
  1982. üDB[1]<5ÅDB[1]>24âDs=0éü
  1983. çDp&Dt&Ds&Du&Dv
  1984. éæ
  1985. äDp()
  1986. N(0)
  1987. BB(8192)
  1988. ü╜(Cp,Cx)!=0â
  1989. »(Cx[4],Cx[5])Db(Cr[1],Cr[2])
  1990. üCt[Cx[3]][1][1]=0âDb(8,0)éü
  1991. ü╜(DC[Cx[3]],{
  1992. 82,69,65,68,32,68,79,67})=0âDb(13,0)éü
  1993. ┤(1,{
  1994. 37,115},{DC[Cx[3]]})
  1995. éü
  1996. »(Cp[4],Cp[5])Db(Co[1],Co[2])
  1997. ┤(1,{
  1998. 37,115},{DC[Cp[3]]})
  1999. üCt[Cp[3]][1][1]=0â
  2000. DX({
  2001. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,8,0)
  2002. DX({
  2003. 32,77,117,108,116,105,112,108,97,121,101,114,32},3,34,8,0)
  2004. à
  2005. DX({
  2006. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,15,0)
  2007. DX({
  2008. 32,77,117,108,116,105,112,108,97,121,101,114,32},3,34,15,0)
  2009. éü
  2010. üDR[Cp[3]][4]â
  2011. DX({
  2012. 32,68,101,109,111,32},3,48,15,0)
  2013. à
  2014. DX({
  2015. 32,68,101,109,111,32},3,48,8,0)
  2016. éü
  2017. ü╛(DC[Cp[3]],DF)Å╜(DC[Cp[3]],{
  2018. 82,69,65,68,32,68,79,67})=0â
  2019. CX=1
  2020. DX({
  2021. 32,65,98,111,117,116,32},3,55,15,0)
  2022. à
  2023. CX=0
  2024. DX({
  2025. 32,65,98,111,117,116,32},3,55,8,0)
  2026. éü
  2027. ü╜(DC[Cp[3]],{
  2028. 82,69,65,68,32,68,79,67})=0â
  2029. DX({
  2030. 32,68,101,108,101,116,101,32},3,63,8,0)
  2031. à
  2032. DX({
  2033. 32,68,101,108,101,116,101,32},3,63,15,0)
  2034. éü
  2035. Db(Cr[1],Cr[2])
  2036. N(1)
  2037. éä
  2038. æDt()
  2039. DS={DG[1],DG[2],DG[3],DG[4]}
  2040. Cf=DS[1]+(DS[2]*256)+(DS[3]*256*256)
  2041. +(DS[4]*256*256*256)
  2042. DT={DG[5],DG[6],DG[7],DG[8]}
  2043. Cg=DT[1]+(DT[2]*256)+(DT[3]*256*256)
  2044. +(DT[4]*256*256*256)
  2045. üCf=8âCf=0éü
  2046. üCg=8âCg=0éü
  2047. ç({Cf,Cg})
  2048. éæ
  2049. æDu()
  2050. ¡Dv
  2051. Dv=0
  2052. DI={}
  2053. CZ=┬(DA[2]&{
  2054. 92}&DH&{
  2055. 46,119,97,100},{
  2056. 114,98})
  2057. DJ=Bc(DA[2]&{
  2058. 92}&DH&{
  2059. 46,119,97,100})
  2060. åDw=1ì4ê
  2061. DI=▒(DI,╖(CZ))
  2062. éå
  2063. Cq={{0,0}}
  2064. DQ={{0,0},{0,0},{0,0},0}
  2065. ü╜(DI,{
  2066. 80,87,65,68})=0Å╜(DI,{
  2067. 73,87,65,68})=0â
  2068. CO=BR(CZ,8)
  2069. CO=CO+0
  2070. Ci={}
  2071. åDx=1ì4êCi=▒(Ci,╖(CZ))éå
  2072. Bz=Ci[1]+(Ci[2]*256)+(Ci[3]*256*256)
  2073. +(Ci[4]*256*256*256)
  2074. üDJ[1][3]>BzÄ¡(Bz)â
  2075. Cq={}
  2076. CJ=0
  2077. èöCJê
  2078. CO=BR(CZ,Bz)
  2079. DG={}
  2080. åDx=1ì16ê
  2081. DG=▒(DG,╖(CZ))
  2082. üDG[Dx]=-1âCJ=1éü
  2083. éå
  2084. ü╜(DG[9],69)=0Ä╜(DG[11],77)=0â
  2085. Cq=▒(Cq,{DG[10],DG[12]})
  2086. éü
  2087. ü╜(DG[9..12],{
  2088. 68,69,77,79})=0â
  2089. DQ[4]=1
  2090. üDG[13]=49â
  2091. DQ[1]=Dt()
  2092. éü
  2093. üDG[13]=50â
  2094. DQ[2]=Dt()
  2095. éü
  2096. üDG[13]=51â
  2097. DQ[3]=Dt()
  2098. éü
  2099. éü
  2100. Bz=Bz+16
  2101. éè
  2102. éü
  2103. éü
  2104. ├(CZ)
  2105. ├(Dv)
  2106. ü╜(Cq,{})=0â
  2107. Cq={{0,0}}
  2108. éü
  2109. DP={Cq,DQ}
  2110. ç(DP)
  2111. éæ
  2112. äDv()
  2113. BB(8192)
  2114. »(3,1)
  2115. ¼(1,{
  2116. 69,120,97,109,105,110,105,110,103,32,121,111,117,114,32,87,65,68,32,102,
  2117. 105,108,101,115,46})
  2118. ü╝(Bc(DA[2]&{
  2119. 92,42,46,119,97,100}))â
  2120. ╡()
  2121. Db(11,0)
  2122. ¼(1,{
  2123. 85,116,32,79,104,33,32,32,32,84,114,111,117,98,108,101,32,105,110,32,
  2124. 112,97,114,97,100,105,115,101,46,10,10,10})
  2125. Db(14,0)
  2126. ¼(1,{
  2127. 67,111,117,108,100,32,110,111,116,32,102,105,110,100,32,97,110,121,32,80,
  2128. 87,65,68,83,32,105,110,32})
  2129. Db(10,0)
  2130. ¼(1,DA[2])
  2131. Db(14,0)
  2132. ¼(1,{
  2133. 10,10,67,104,101,99,107,32,80,87,65,68,68,69,82,46,73,78,
  2134. 73,32,108,105,110,101,32,50,44,32,111,114,32,103,101,116,32,115,111,109,
  2135. 101,32,80,87,65,68,83,46,10,10,10,10})
  2136. ╤(0)
  2137. éü
  2138. Cm=Be(Bc(DA[2]))
  2139. DC={}
  2140. Ct={}
  2141. DR={}
  2142. DF={}
  2143. DH={}
  2144. CW=0
  2145. DI={}
  2146. åDw=1ì½(Cm)ê
  2147. ü½(Cm[Dw][1])>3â
  2148. CA=Cm[Dw][1][½(Cm[Dw][1])-3..½(Cm[Dw][1])]
  2149. DH=Cm[Dw][1][1..½(Cm[Dw][1])-4]
  2150. ü╜(CA,{
  2151. 46,87,65,68})=0â
  2152. ü╜(DH,{
  2153. 68,79,79,77})!=0Ä╜(DH,{
  2154. 68,79,79,77,49})!=0â
  2155. DC=▒(DC,DH)
  2156. DP=Du()
  2157. Ct=▒(Ct,DP[1])
  2158. DR=▒(DR,DP[2])
  2159. CW=CW+1
  2160. üö═(CW,3)â¼(1,{
  2161. 46})éü
  2162. éü
  2163. éü
  2164. ü╜(CA,{
  2165. 46,84,88,84})=0â
  2166. DF=▒(DF,DH)
  2167. éü
  2168. éü
  2169. éå
  2170. üö╝(Bc({
  2171. 112,119,97,100,100,101,114,46,100,111,99}))â
  2172. DC=▒(DC,{
  2173. 82,69,65,68,32,68,79,67})
  2174. Ct=▒(Ct,{{0,0}})
  2175. DR=▒(DR,{{0,0},{0,0},{0,0},0})
  2176. CW=CW+1
  2177. éü
  2178. åDx=CW+1ì160êDC=▒(DC,{
  2179. 32})éå
  2180. åDx=CW+1ì160êCt=▒(Ct,{{0,0}})éå
  2181. Cm={}
  2182. éä
  2183. äDw()
  2184. BB(8192)
  2185. CP=1
  2186. N(0)
  2187. åDx=1ì8ê
  2188. åDy=5ì24ê
  2189. ü═(CP,20)âCH=(╢(CP/20)*10)+2àCH=(╢(CP/21)*10)+2éü
  2190. DX({
  2191. 32,32,32,32,32,32,32,32},Dy,CH,11,0)
  2192. üCP=Cp[3]â
  2193. DX(DC[CP],Dy,CH,14,4)
  2194. ë╜(DC[CP],{
  2195. 82,69,65,68,32,68,79,67})=0â
  2196. DX(DC[CP],Dy,CH,13,0)
  2197. ëCt[CP][1][1]=0â
  2198. DX(DC[CP],Dy,CH,8,0)
  2199. à
  2200. DX(DC[CP],Dy,CH,11,0)
  2201. éü
  2202. CP=CP+1
  2203. éå
  2204. éå
  2205. üCTÄ║(12)-1=0â
  2206. Dj()
  2207. éü
  2208. DX({
  2209. 32,196,32},25,1,3,0)
  2210. »(25,4)
  2211. Db(10,0)
  2212. ¼(1,Cz)
  2213. Db(3,0)
  2214. ┤(1,{
  2215. 37,115,37,115},{{
  2216. 32},╗(196,59-½(Cz))})
  2217. Db(10,0)
  2218. ┤(1,{
  2219. 32,83,47,78,32,37,100,45,37,115,32},{CV,DM})
  2220. Db(3,0)
  2221. ¼(1,{
  2222. 45})
  2223. Db(Cr[1],Cr[2])
  2224. Dp()
  2225. N(1)
  2226. éä
  2227. äDx()
  2228. N(0)
  2229. DX({
  2230. 32,68,101,108,101,116,101,32},3,63,14,4)
  2231. Db(14,1)
  2232. N(1)
  2233. DV={{11,32},{14,53},15,1,9}
  2234. DY()
  2235. DX({
  2236. 32,67,108,105,99,107,32,105,110,32,116,104,105,115,32,98,111,120,32},12,33,15,1)
  2237. DX({
  2238. 32,116,111,32,99,111,110,102,105,114,109,32,100,101,108,101,116,101,32},13,33,15,1)
  2239. Db(15,0)
  2240. è1ê
  2241. M(2)
  2242. CD=L()
  2243. DB=Dq()
  2244. ü«(CD)â
  2245. üDB[1]>11ÄDB[1]<14ÄDB[2]>32ÄDB[2]<52â
  2246. N(0)
  2247. DZ()
  2248. DX({
  2249. 32,68,101,108,101,116,101,32},3,64,15,0)
  2250. Cl={
  2251. 100,101,108,32}&DA[2]&{
  2252. 92}&DC[Cp[3]]&{
  2253. 46,42}
  2254. ╦(Cl,2)
  2255. Cy=DC
  2256. DC=Cy[1..Cp[3]-1]
  2257. &Cy[Cp[3]+1..½(Cy)]
  2258. &{
  2259. 32}
  2260. Cy=Ct
  2261. Ct=Cy[1..Cp[3]-1]
  2262. &Cy[Cp[3]+1..½(Cy)]
  2263. &{{{0,0}}}
  2264. CW=CW-1
  2265. Dw()
  2266. É
  2267. à
  2268. N(0)
  2269. DX({
  2270. 32,68,101,108,101,116,101,32},3,63,15,0)
  2271. DZ()
  2272. N(1)
  2273. Dp()
  2274. É
  2275. éü
  2276. éü
  2277. éè
  2278. éä
  2279. äDy()
  2280. N(0)
  2281. BB(8192)
  2282. De()
  2283. »(2,1)
  2284. Db(3,0)
  2285. DX(╗(196,76),2,2,3,0)
  2286. DX(╗(196,76),4,2,3,0)
  2287. DW(218,2,1,3,0)
  2288. DW(194,2,20,3,0)
  2289. DW(194,2,33,3,0)
  2290. DW(194,2,47,3,0)
  2291. DW(194,2,54,3,0)
  2292. DW(194,2,62,3,0)
  2293. DW(194,2,71,3,0)
  2294. DW(191,2,78,3,0)
  2295. DW(179,3,1,3,0)
  2296. DW(179,3,20,3,0)
  2297. DW(179,3,33,3,0)
  2298. DW(179,3,47,3,0)
  2299. DW(179,3,54,3,0)
  2300. DW(179,3,62,3,0)
  2301. DW(179,3,71,3,0)
  2302. DW(179,3,78,3,0)
  2303. DW(192,4,1,3,0)
  2304. DW(193,4,20,3,0)
  2305. DW(193,4,33,3,0)
  2306. DW(193,4,47,3,0)
  2307. DW(193,4,54,3,0)
  2308. DW(193,4,62,3,0)
  2309. DW(193,4,71,3,0)
  2310. DW(217,4,78,3,0)
  2311. DX({
  2312. 83,107,105,108,108,58},3,3,15,0)
  2313. üCU=1âDX({
  2314. 32,49},3,9,15,0)àDX({
  2315. 32,49},3,9,8,0)éü
  2316. üCU=2âDX({
  2317. 32,50},3,11,15,0)àDX({
  2318. 32,50},3,11,8,0)éü
  2319. üCU=3âDX({
  2320. 32,51},3,13,15,0)àDX({
  2321. 32,51},3,13,8,0)éü
  2322. üCU=4âDX({
  2323. 32,52},3,15,15,0)àDX({
  2324. 32,52},3,15,8,0)éü
  2325. üCU=5âDX({
  2326. 32,53,32},3,17,15,0)àDX({
  2327. 32,53,32},3,17,8,0)éü
  2328. DX({
  2329. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,8,0)
  2330. DX({
  2331. 32,77,117,108,116,105,112,108,97,121,101,114,32},3,34,8,0)
  2332. DX({
  2333. 32,68,101,109,111,32},3,48,8,0)
  2334. DX({
  2335. 32,65,98,111,117,116,32},3,55,8,0)
  2336. DX({
  2337. 32,68,101,108,101,116,101,32},3,63,8,0)
  2338. DX({
  2339. 32,81,117,105,116,32},3,72,15,0)
  2340. Dw()
  2341. éä
  2342. äDz()
  2343. N(0)
  2344. BB(8192)
  2345. DX({
  2346. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,8,0)
  2347. DX({
  2348. 32,65,98,111,117,116,32},3,55,8,0)
  2349. DX({
  2350. 32,68,101,108,101,116,101,32},3,63,8,0)
  2351. DX({
  2352. 67,97,110,99,101,108},3,72,15,0)
  2353. Db(9,1)
  2354. DV={{8,21},{19,59},15,1,9}
  2355. DY()
  2356. »(10,22)
  2357. Db(15,1)
  2358. ┤(1,{
  2359. 32,84,104,101,114,101,32,105,115,32,97,32,115,97,118,101,100,32,103,97,
  2360. 109,101,32,102,111,114,32,37,115,46},{DC[Cp[3]]})
  2361. DX({
  2362. 32,68,111,32,121,111,117,32,119,97,110,116,32,105,116,32,116,111,32,108,
  2363. 111,97,100,32,97,116,32,115,116,97,114,116,117,112,63,32},12,22,15,1)
  2364. DX({
  2365. 32,32,32,32,32,32,32,32,218,196,196,196,196,196,191,32,32,32,32,32,
  2366. 32,32,218,196,196,196,196,191},14,22,15,1)
  2367. DX({
  2368. 32,32,32,32,32,32,32,32,179,32},15,22,15,1)
  2369. DX({
  2370. 89,69,83},15,32,14,1)
  2371. DX({
  2372. 179,32,32,32,32,32,32,32,179},15,36,15,1)
  2373. DX({
  2374. 78,79},15,46,14,1)
  2375. DX({
  2376. 32,179},15,48,15,1)
  2377. DX({
  2378. 32,32,32,32,32,32,32,32,192,196,196,196,196,196,217,32,32,32,32,32,
  2379. 32,32,192,196,196,196,196,217},16,22,15,1)
  2380. CY=0
  2381. N(1)
  2382. èöCYê
  2383. M(10)
  2384. CD=L()
  2385. DB=Dq()
  2386. ü«(CD)â
  2387. üDB[1]=3â
  2388. üDB[2]>9ÄDB[2]<19â
  2389. üDB[2]=10ÅDB[2]=12ÅDB[2]=14
  2390. ÅDB[2]=16ÅDB[2]=18â
  2391. Do()
  2392. éü
  2393. ëDB[2]>71ÄDB[2]<78â
  2394. N(0)
  2395. DX({
  2396. 67,97,110,99,101,108},3,73,14,4)
  2397. DZ()
  2398. DX({
  2399. 32,81,117,105,116,32},3,73,15,0)
  2400. CS=2
  2401. É
  2402. éü
  2403. éü
  2404. üDB[1]=15â
  2405. üDB[2]>30ÄDB[2]<36â
  2406. Cb=1
  2407. CY=1 
  2408. É
  2409. éü
  2410. éü
  2411. üDB[1]=15â
  2412. üDB[2]>44ÄDB[2]<49â
  2413. Cb=0
  2414. CY=1 
  2415. É
  2416. éü
  2417. éü
  2418. éü
  2419. éè
  2420. éä
  2421. äEA()
  2422. Ch=1
  2423. N(0)
  2424. BB(8192)
  2425. DX({
  2426. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,8,0)
  2427. DX({
  2428. 32,65,98,111,117,116,32},3,55,8,0)
  2429. DX({
  2430. 32,68,101,108,101,116,101,32},3,63,8,0)
  2431. DX({
  2432. 67,97,110,99,101,108},3,72,15,0)
  2433. DV={{7,3},{22,77},15,1,9}
  2434. DY()
  2435. DX({
  2436. 75,110,101,101,32,68,101,101,112,32,105,110,32,116,104,101,32,68,101,97,
  2437. 100},8,6,11,1)
  2438. DW(179,8,28,14,1)
  2439. DX({
  2440. 79,110,32,116,104,101,32,83,104,111,114,101,115,32,111,102,32,72,101,108,
  2441. 108},8,30,11,1)
  2442. DW(179,8,52,14,1)
  2443. DX({
  2444. 73,110,102,101,114,110,111},8,54,11,1)
  2445. DX(╗(196,23)&179&╗(196,23)&179&╗(196,23),9,5,14,1)
  2446. åEB=10ì18ê
  2447. ü╛({49,EB+39},Ct[Cp[3]])â
  2448. DX(Cs[1][EB-9],EB,5,15,1)
  2449. à
  2450. DX(Cs[1][EB-9],EB,5,8,1)
  2451. éü
  2452. DW(179,EB,28,14,1)
  2453. ü╛({50,EB+39},Ct[Cp[3]])â
  2454. DX(Cs[2][EB-9],EB,29,15,1)
  2455. à
  2456. DX(Cs[2][EB-9],EB,29,8,1)
  2457. éü
  2458. DW(179,EB,52,14,1)
  2459. ü╛({51,EB+39},Ct[Cp[3]])â
  2460. DX(Cs[3][EB-9],EB,53,15,1)
  2461. à
  2462. DX(Cs[3][EB-9],EB,53,8,1)
  2463. éü
  2464. éå
  2465. DX(╗(196,71),19,5,14,1)
  2466. Db(14,1)
  2467. »(20,5)┤(1,{
  2468. 32,37,115},{DC[Cp[3]]})
  2469. Db(15,1)
  2470. ¼(1,{
  2471. 32,105,115,32,97,32,109,117,108,116,105,45,108,101,118,101,108,32,80,87,
  2472. 65,68,46,32,69,105,116,104,101,114,32,99,104,111,111,115,101,32,97,32,
  2473. 108,101,118,101,108,32,116,111,32,115,116,97,114,116,32,111,110,44,32,111,
  2474. 114,32})
  2475. DX({
  2476. 99,108,105,99,107,32,116,104,101,32,114,105,103,104,116,32,109,111,117,115,
  2477. 101,32,98,117,116,116,111,110,32,116,111,32,115,116,97,114,116,32,68,79,
  2478. 79,77,32,119,105,116,104,111,117,116,32,119,97,114,112,105,110,103,46},21,15,15,1)
  2479. CK=1
  2480. CN=1
  2481. CY=0
  2482. N(1)
  2483. èöCYê
  2484. M(10)
  2485. CD=L()
  2486. DB=Dq()
  2487. ü«(CD)â
  2488. üDB[1]=3â
  2489. üDB[2]>9ÄDB[2]<19â
  2490. üDB[2]=10ÅDB[2]=12ÅDB[2]=14
  2491. ÅDB[2]=16ÅDB[2]=18â
  2492. Do()
  2493. éü
  2494. ëDB[2]>71ÄDB[2]<78â
  2495. N(0)
  2496. DX({
  2497. 67,97,110,99,101,108},3,73,14,4)
  2498. DZ()
  2499. DX({
  2500. 32,81,117,105,116,32},3,73,15,0)
  2501. CS=1
  2502. N(1)
  2503. É
  2504. éü
  2505. éü
  2506. üDB[2]>4ÄDB[2]<28â
  2507. üDB[1]>9ÄDB[1]<19â
  2508. CK=1
  2509. CN=DB[1]-9
  2510. ü╛({CK+48,CN+48},Ct[Cp[3]])â
  2511. CY=1 
  2512. éü
  2513. éü
  2514. éü
  2515. üDB[2]>28ÄDB[2]<52â
  2516. üDB[1]>9ÄDB[1]<19â
  2517. CK=2
  2518. CN=DB[1]-9
  2519. ü╛({CK+48,CN+48},Ct[Cp[3]])â
  2520. CY=1 
  2521. éü
  2522. éü
  2523. éü
  2524. üDB[2]>52ÄDB[2]<76â
  2525. üDB[1]>9ÄDB[1]<19â
  2526. CK=3
  2527. CN=DB[1]-9
  2528. ü╛({CK+48,CN+48},Ct[Cp[3]])â
  2529. CY=1 
  2530. éü
  2531. éü
  2532. éü
  2533. üCD[1]=Eâ
  2534. CN=0
  2535. CK=0
  2536. CY=1
  2537. éü
  2538. éü
  2539. éè
  2540. éä
  2541. äEB()
  2542. ¡EC,ED
  2543. Db(14,0)
  2544. ╡()
  2545. ┤(1,{
  2546. 82,101,99,111,114,100,105,110,103,32,115,97,118,101,100,32,103,97,109,101,
  2547. 32,102,111,114,32,37,115},{DC[Cp[3]]})
  2548. üö╝(Bc(DA[2]&{
  2549. 92}&DC[Cp[3]]&{
  2550. 46,68,83,71}))â
  2551. ╦({
  2552. 100,101,108,32}&DA[2]&{
  2553. 92}&DC[Cp[3]]&{
  2554. 46,68,83,71},2)
  2555. ¼(1,{
  2556. 46})
  2557. éü
  2558. Da({
  2559. 68,79,79,77,83,65,86,53,46,68,83,71},DA[2]&{
  2560. 92}&DC[Cp[3]]&{
  2561. 46,87,65,83})
  2562. ¼(1,{
  2563. 46})
  2564. EC=┬(DA[2]&{
  2565. 92}&DC[Cp[3]]&{
  2566. 46,87,65,83},{
  2567. 114,98})
  2568. ED=┬(DA[2]&{
  2569. 92}&DC[Cp[3]]&{
  2570. 46,68,83,71},{
  2571. 119,98})
  2572. åEE=1ì24ê
  2573. CO=╖(EC)
  2574. éå
  2575. ¼(1,{
  2576. 46})
  2577. ┤(ED,{
  2578. 37,115,32,45,32,80,87,65,68,68,69,82,32,83,65,86,69},{DC[Cp[3]]})
  2579. åEE=1ì24-(15+½(DC[Cp[3]]))ê
  2580. ¼(ED,0)
  2581. éå
  2582. ¼(1,{
  2583. 46})
  2584. è1ê
  2585. CO=╖(EC)
  2586. üCO=-1â
  2587. É
  2588. éü
  2589. ¼(ED,CO)
  2590. ü║(9119)=1â¼(1,{
  2591. 46})éü
  2592. éè
  2593. ¼(1,{
  2594. 46})
  2595. ├(EC)
  2596. ├(ED)
  2597. ¼(1,{
  2598. 46})
  2599. ╦({
  2600. 100,101,108,32}&DA[2]&{
  2601. 92}&DC[Cp[3]]&{
  2602. 46,87,65,83},2)
  2603. ¼(1,{
  2604. 46})
  2605. éä
  2606. äEC()
  2607. ¡ED
  2608. Cb=0
  2609. Cc=1
  2610. Cc=Cc-1
  2611. üö╝(Bc({
  2612. 100,111,111,109,115,97,118,53,46,100,115,103}))â
  2613. üö╝(Bc({
  2614. 100,111,111,109,115,97,118,53,46,119,97,115}))â
  2615. ╦({
  2616. 100,101,108,32,100,111,111,109,115,97,118,53,46,100,115,103},2)
  2617. ╦({
  2618. 114,101,110,32,100,111,111,109,115,97,118,53,46,119,97,115,32,100,111,111,
  2619. 109,115,97,118,53,46,100,115,103},2)
  2620. éü
  2621. ╦({
  2622. 114,101,110,32,100,111,111,109,115,97,118,53,46,100,115,103,32,100,111,111,
  2623. 109,115,97,118,53,46,119,97,115},2)
  2624. Cc=0
  2625. à
  2626. Cc=1
  2627. éü
  2628. ED=┬({
  2629. 100,111,111,109,115,97,118,53,46,100,115,103},{
  2630. 119})
  2631. ┤(ED,{
  2632. 37,115,32,45,32,80,87,65,68,68,69,82,32,83,65,86,69},{DC[Cp[3]]})
  2633. åEE=1ì24-(15+½(DC[Cp[3]]))ê
  2634. ¼(ED,0)
  2635. éå
  2636. ¼(ED,{
  2637. 10})
  2638. ├(ED)
  2639. üö╝(Bc(DA[2]&{
  2640. 92}&DC[Cp[3]]&{
  2641. 46,68,83,71}))â
  2642. üöCN=0ÄöCK=0â
  2643. Dz()
  2644. éü
  2645. üöCSâ
  2646. N(0)
  2647. Db(14,0)
  2648. ╡()
  2649. ┤(1,{
  2650. 84,114,97,110,115,102,101,114,105,110,103,32,115,97,118,101,100,32,103,97,
  2651. 109,101,32,100,97,116,97,32,102,111,114,32,37,115,46,46},{DC[Cp[3]]})
  2652. ╦({
  2653. 100,101,108,32,100,111,111,109,115,97,118,53,46,100,115,103},2)
  2654. ¼(1,{
  2655. 46})
  2656. Da(DA[2]&{
  2657. 92}&DC[Cp[3]]&{
  2658. 46,68,83,71},{
  2659. 68,79,79,77,83,65,86,53,46,68,83,71})
  2660. ¼(1,{
  2661. 46})
  2662. ¼(1,{
  2663. 46})
  2664. ¼(1,{
  2665. 46})
  2666. à
  2667. ╦({
  2668. 100,101,108,32,100,111,111,109,115,97,118,53,46,100,115,103},2)
  2669. éü
  2670. éü
  2671. üCSÄö╝(Bc({
  2672. 100,111,111,109,115,97,118,53,46,119,97,115}))â
  2673. ╦({
  2674. 114,101,110,32,100,111,111,109,115,97,118,53,46,119,97,115,32,100,111,111,
  2675. 109,115,97,118,53,46,100,115,103},2)
  2676. éü
  2677. éä
  2678. äED()
  2679. DN=Bc({
  2680. 100,111,111,109,115,97,118,53,46,100,115,103})
  2681. DO={{0,0,0}}
  2682. üö╝(Bc(DA[2]&{
  2683. 92}&DC[Cp[3]]&{
  2684. 46,68,83,71}))â
  2685. DO=Bc(DA[2]&{
  2686. 92}&DC[Cp[3]]&{
  2687. 46,68,83,71})
  2688. ü╜(DO[1][3],DN[1][3])!=0â
  2689. EB()
  2690. éü
  2691. à
  2692. üDN[1][3]>26â
  2693. EB()
  2694. éü
  2695. éü
  2696. ╦({
  2697. 100,101,108,32,100,111,111,109,115,97,118,53,46,100,115,103},2)
  2698. üö╝(Bc({
  2699. 100,111,111,109,115,97,118,53,46,119,97,115}))â
  2700. »(24,1)
  2701. ╦({
  2702. 114,101,110,32,100,111,111,109,115,97,118,53,46,119,97,115,32,100,111,111,
  2703. 109,115,97,118,53,46,100,115,103},2)
  2704. éü
  2705. éä
  2706. äEE()
  2707. CL=0
  2708. Ch=0
  2709. ü½(Ct[Cp[3]])>1â
  2710. EA()
  2711. à
  2712. CK=Ct[Cp[3]][1][1]-48
  2713. CN=Ct[Cp[3]][1][2]-48
  2714. éü
  2715. üöCSâ
  2716. EC()
  2717. éü
  2718. N(0)
  2719. DX({
  2720. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,14,4)
  2721. Db(14,0)
  2722. N(1)
  2723. üöCSâ
  2724. N(0)
  2725. ╡()
  2726. DX({
  2727. 83,116,97,114,116,105,110,103,32,68,79,79,77,46,46,46},1,1,14,0)
  2728. DX({
  2729. 69,120,116,101,114,110,97,108,32,80,97,116,99,104,32,87,65,68,58,32},3,1,14,0)
  2730. »(3,21)
  2731. Db(11,0)
  2732. ┤(1,{
  2733. 37,115,46,87,65,68,10,10},{DC[Cp[3]]})
  2734. DX({
  2735. 32,32,32,32,32,32,32,32,32,32,32,77,105,115,115,105,111,110,58,32},5,1,14,0)
  2736. Db(11,0)
  2737. üCK=0âDX({
  2738. 82,69,67,73,69,86,69,32,79,82,68,69,82,83,32,65,84,32,68,82,
  2739. 79,80,32,80,79,73,78,84},5,21,11,0)éü
  2740. üCK=1âDX({
  2741. 75,110,101,101,32,68,101,101,112,32,105,110,32,116,104,101,32,68,101,97,
  2742. 100},5,21,11,0)éü
  2743. üCK=2âDX({
  2744. 84,104,101,32,83,104,111,114,101,115,32,111,102,32,72,32,69,32,68,111,
  2745. 117,98,108,101,32,84,111,111,116,104,112,105,99,107,115},5,21,11,0)éü
  2746. üCK=3âDX({
  2747. 73,110,102,101,114,110,111},5,21,11,0)éü
  2748. DX({
  2749. 32,32,32,32,32,32,32,32,32,32,32,84,104,101,97,116,101,114,58},7,1,14,0)
  2750. üCN=0â
  2751. DX({
  2752. 32,67,76,65,83,83,73,70,73,69,68},7,21,11,0)
  2753. à
  2754. DX(Cs[CK][CN],7,20,11,0)
  2755. éü
  2756. DX({
  2757. 32,32,32,32,32,32,32,83,107,105,108,108,32,76,101,118,101,108,58,32},9,1,14,0)
  2758. DX(DE[CU],9,21,11,0)
  2759. DX({
  2760. 32,32,32,32,32,32,32,32,83,97,118,101,100,32,71,97,109,101,58,32},11,1,14,0)
  2761. ü╝(Bc(DA[2]&{
  2762. 92}&DC[Cp[3]]&{
  2763. 46,68,83,71}))â
  2764. DX({
  2765. 78,111},11,21,11,0)
  2766. à
  2767. üCbâ
  2768. DX({
  2769. 76,111,97,100,32,97,116,32,115,116,97,114,116,117,112},11,21,11,0)
  2770. à
  2771. DX({
  2772. 89,101,115,44,32,100,111,110,39,116,32,108,111,97,100,32,97,116,32,115,
  2773. 116,97,114,116,117,112},11,21,11,0)
  2774. éü
  2775. éü
  2776. üCN=0ÄCK=0â
  2777. Cn={
  2778. 100,111,111,109,32,45,102,105,108,101,32}&DA[2]&{
  2779. 92}&DC[Cp[3]]&{
  2780. 46,87,65,68}
  2781. ëöCbâ
  2782. Cn={
  2783. 100,111,111,109,32,45,102,105,108,101,32}&DA[2]&{
  2784. 92}&DC[Cp[3]]&{
  2785. 46,87,65,68,32,45,115,107,105,108,108,32}
  2786. &CU+48&{
  2787. 32,45,100,101,118,112,97,114,109,32,45,119,97,114,112,32}&CK+48&{
  2788. 32}&CN+48
  2789. à
  2790. Cn={
  2791. 100,111,111,109,32,45,102,105,108,101,32}&DA[2]&{
  2792. 92}&DC[Cp[3]]
  2793. &{
  2794. 46,119,97,100,32,45,100,101,118,112,97,114,109,32,45,108,111,97,100,103,
  2795. 97,109,101,32,53}
  2796. éü
  2797. ╦(Cn,2)
  2798. ED()
  2799. Dy()
  2800. éü
  2801. CN=1
  2802. CK=1
  2803. DB={5,1}
  2804. N(1)
  2805. üCS=2ÄCh=1â
  2806. Dy()
  2807. éü
  2808. CS=0
  2809. Ch=0
  2810. éä
  2811. äEF(¡Ce)
  2812. ¡EG,EH
  2813. Db(14,0)
  2814. ╡()
  2815. ¼(1,{
  2816. 69,120,116,114,97,99,116,105,110,103,32,100,101,109,111,46,46,46})
  2817. EG=┬(DA[2]&{
  2818. 92}&DC[Cp[3]]&{
  2819. 46,87,65,68},{
  2820. 114,98})
  2821. EH=┬({
  2822. 100,101,109,111,46,108,109,112},{
  2823. 119,98})
  2824. CO=BR(EG,DR[Cp[3]][Ce][1])
  2825. CF=└()
  2826. åEI=1ìDR[Cp[3]][Ce][2]ê
  2827. ¼(EH,╖(EG))
  2828. üö═(EI,9192)â¼(1,{
  2829. 46})éü
  2830. éå
  2831. ├(EG)
  2832. ├(EH)
  2833. éä
  2834. äEG()
  2835. N(0)
  2836. DX({
  2837. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,8,0)
  2838. DX({
  2839. 32,68,101,109,111,32},3,48,14,4)
  2840. DX({
  2841. 32,65,98,111,117,116,32},3,55,8,0)
  2842. DX({
  2843. 32,68,101,108,101,116,101,32},3,63,8,0)
  2844. DX({
  2845. 67,97,110,99,101,108},3,72,15,0)
  2846. N(1)
  2847. DV={{11,31},{15,45},15,1,9}
  2848. DY()
  2849. üDR[Cp[3]][1][1]â
  2850. DX({
  2851. 80,108,97,121,32,68,101,109,111,32,49},12,33,15,1)
  2852. à
  2853. DX({
  2854. 80,108,97,121,32,68,101,109,111,32,49},12,33,8,1)
  2855. éü
  2856. üDR[Cp[3]][2][1]â
  2857. DX({
  2858. 80,108,97,121,32,68,101,109,111,32,50},13,33,15,1)
  2859. à
  2860. DX({
  2861. 80,108,97,121,32,68,101,109,111,32,50},13,33,8,1)
  2862. éü
  2863. üDR[Cp[3]][3][1]â
  2864. DX({
  2865. 80,108,97,121,32,68,101,109,111,32,51},14,33,15,1)
  2866. à
  2867. DX({
  2868. 80,108,97,121,32,68,101,109,111,32,51},14,33,8,1)
  2869. éü
  2870. Cd=0
  2871. CY=0
  2872. èöCdê
  2873. M(2)
  2874. CD=L()
  2875. DB=Dq()
  2876. ü«(CD)â
  2877. üDB[1]=3ÄDB[2]>72ÄDB[2]<78â
  2878. N(0)
  2879. DX({
  2880. 32,68,101,109,111,32},3,48,15,0)
  2881. DX({
  2882. 67,97,110,99,101,108},3,72,14,4)
  2883. Cd=1
  2884. CS=1
  2885. DZ()
  2886. DX({
  2887. 32,81,117,105,116,32},3,72,15,0)
  2888. N(1)
  2889. Dp()
  2890. É
  2891. éü
  2892. üDB[2]>31ÄDB[2]<45â
  2893. üDB[1]>11ÄDB[1]<15â
  2894. N(0)
  2895. üDB[1]=12ÄDR[Cp[3]][1][1]â
  2896. DX({
  2897. 32,80,108,97,121,32,68,101,109,111,32,49,32},12,32,14,4)
  2898. Ce=1
  2899. EF(Ce)
  2900. Cd=1
  2901. ¼(1,{
  2902. 46})
  2903. éü
  2904. üDB[1]=13ÄDR[Cp[3]][2][1]â
  2905. DX({
  2906. 32,80,108,97,121,32,68,101,109,111,32,50,32},13,32,14,4)
  2907. Ce=2
  2908. EF(Ce)
  2909. Cd=1
  2910. ¼(1,{
  2911. 46})
  2912. éü
  2913. üDB[1]=14ÄDR[Cp[3]][3][1]â
  2914. DX({
  2915. 32,80,108,97,121,32,68,101,109,111,32,51,32},14,32,14,4)
  2916. Ce=3
  2917. EF(Ce)
  2918. Cd=1
  2919. ¼(1,{
  2920. 46})
  2921. éü
  2922. N(1)
  2923. éü
  2924. éü
  2925. éü
  2926. éè
  2927. üöCSâ
  2928. N(0)
  2929. ╦({
  2930. 100,111,111,109,32,45,102,105,108,101,32}&DA[2]&{
  2931. 92}&DC[Cp[3]]&{
  2932. 46,87,65,68,32,45,112,108,97,121,100,101,109,111,32,100,101,109,111},2)
  2933. ╦({
  2934. 100,101,108,32,100,101,109,111,46,108,109,112},2)
  2935. N(1)
  2936. Dy()
  2937. éü
  2938. CS=0
  2939. éä
  2940. äEH()
  2941. N(0)
  2942. DX({
  2943. 32,83,116,97,114,116,32,68,79,79,77,32},3,21,8,0)
  2944. DX({
  2945. 32,77,117,108,116,105,112,108,97,121,101,114,32},3,34,14,4)
  2946. DX({
  2947. 32,68,101,109,111,32},3,48,8,0)
  2948. DX({
  2949. 32,65,98,111,117,116,32},3,55,8,0)
  2950. DX({
  2951. 32,68,101,108,101,116,101,32},3,63,8,0)
  2952. DX({
  2953. 67,97,110,99,101,108},3,72,15,0)
  2954. N(1)
  2955. DV={{10,28},{14,52},15,1,9}
  2956. DY()
  2957. DX({
  2958. 32,84,104,105,115,32,102,101,97,116,117,114,101,32,119,105,108,108,32,98,
  2959. 101},11,29,15,1)
  2960. DX({
  2961. 32,32,32,32,32,97,118,97,105,108,97,98,108,101,32,105,110},12,29,15,1)
  2962. DX({
  2963. 32,32,32,116,104,101,32,110,101,120,116,32,118,101,114,115,105,111,110},13,29,15,1)
  2964. Cd=0
  2965. CY=0
  2966. èöCdê
  2967. M(2)
  2968. CD=L()
  2969. DB=Dq()
  2970. ü«(CD)â
  2971. üDB[1]=3ÄDB[2]>72ÄDB[2]<78â
  2972. N(0)
  2973. DX({
  2974. 32,68,101,109,111,32},3,48,15,0)
  2975. DX({
  2976. 67,97,110,99,101,108},3,72,14,4)
  2977. Cd=1
  2978. CS=1
  2979. DZ()
  2980. DX({
  2981. 32,81,117,105,116,32},3,72,15,0)
  2982. N(1)
  2983. Dp()
  2984. É
  2985. éü
  2986. éü
  2987. éè
  2988. CS=0
  2989. éä
  2990. üo(3)â
  2991. üo(2)â
  2992. üo(7)â
  2993. ¼(1,{
  2994. 67,97,110,39,116,32,115,101,116,32,103,114,97,112,104,105,99,115,32,97,
  2995. 100,97,112,116,111,114,32,116,111,32,56,48,120,50,53,32,116,101,120,116,
  2996. 32,109,111,100,101,46})
  2997. ╤(0)
  2998. éü
  2999. éü
  3000. éü
  3001. Ca=0
  3002. DK=╠()
  3003. DD={0,0,0}
  3004. DD[1]=#00
  3005. DD[2]=#00
  3006. DD[3]=#00
  3007. CV=(DD[1]*10000)+(DD[2]*100)+DD[3]
  3008. CS=0 CQ=0 CK=1 CN=1
  3009. Cp={5,1,1,5,2}Cx=Cp DB={5,1}CD={2,16,32}
  3010. Co={14,4}Cr={11,0}DC={}Ck=┴()
  3011. DM={
  3012. 83,67}
  3013. DL={
  3014. 49,46,48}
  3015. CT=1
  3016. Cz={
  3017. 85,78,82,69,71,73,83,84,69,82,69,68}
  3018. DE={{
  3019. 84,111,111,32,89,111,117,110,103,32,84,111,32,68,105,101},{
  3020. 72,101,121,32,78,111,116,32,84,111,111,32,82,111,117,103,104}
  3021. ,{
  3022. 72,117,114,116,32,77,101,32,80,108,101,110,116,121},{
  3023. 85,108,116,114,97,32,86,105,111,108,101,110,99,101}
  3024. ,{
  3025. 78,32,73,32,71,32,72,32,84,32,77,32,65,32,82,32,69}}
  3026. Cs={{{
  3027. 32,72,97,110,103,97,114,32,32,32,32,32,32,32,32,32,32,32,32,32,
  3028. 32,32,32},{
  3029. 32,78,117,99,108,101,97,114,32,80,108,97,110,116,32,32,32,32,32,32,
  3030. 32,32,32},
  3031. {
  3032. 32,84,111,120,105,110,32,82,101,102,105,110,101,114,121,32,32,32,32,32,
  3033. 32,32,32},{
  3034. 32,67,111,109,109,97,110,100,32,67,111,110,116,114,111,108,32,32,32,32,
  3035. 32,32,32},
  3036. {
  3037. 32,80,104,111,98,111,115,32,76,97,98,32,32,32,32,32,32,32,32,32,
  3038. 32,32,32},{
  3039. 32,67,101,110,116,114,97,108,32,80,114,111,99,101,115,115,105,110,103,32,
  3040. 32,32,32},
  3041. {
  3042. 32,67,111,109,112,117,116,101,114,32,83,116,97,116,105,111,110,32,32,32,
  3043. 32,32,32},{
  3044. 32,80,104,111,98,111,115,32,65,110,111,109,97,108,121,32,32,32,32,32,
  3045. 32,32,32},
  3046. {
  3047. 32,77,105,108,105,116,97,114,121,32,66,97,115,101,32,32,32,32,32,32,
  3048. 32,32,32}}
  3049. ,{{
  3050. 32,68,101,105,109,111,115,32,65,110,111,109,97,108,121,32,32,32,32,32,
  3051. 32,32,32},{
  3052. 32,67,111,110,116,97,105,110,109,101,110,116,32,65,114,101,97,32,32,32,
  3053. 32,32,32},
  3054. {
  3055. 32,82,101,102,105,110,101,114,121,32,32,32,32,32,32,32,32,32,32,32,
  3056. 32,32,32},{
  3057. 32,68,101,105,109,111,115,32,76,97,98,32,32,32,32,32,32,32,32,32,
  3058. 32,32,32},
  3059. {
  3060. 32,67,111,109,109,97,110,100,32,67,101,110,116,101,114,32,32,32,32,32,
  3061. 32,32,32},{
  3062. 32,72,97,108,108,115,32,111,102,32,116,104,101,32,68,97,109,110,101,100,
  3063. 32,32,32},
  3064. {
  3065. 32,83,112,97,119,110,105,110,103,32,86,97,116,115,32,32,32,32,32,32,
  3066. 32,32,32},{
  3067. 32,84,111,119,101,114,32,111,102,32,66,97,98,101,108,32,32,32,32,32,
  3068. 32,32,32},
  3069. {
  3070. 32,70,111,114,116,114,101,115,115,32,111,102,32,77,121,115,116,101,114,121,
  3071. 32,32,32}}
  3072. ,{{
  3073. 32,72,101,108,108,32,75,101,101,112,32,32,32,32,32,32,32,32,32,32,
  3074. 32,32,32},{
  3075. 32,83,108,111,117,103,104,32,111,102,32,68,105,115,112,97,105,114,32,32,
  3076. 32,32,32},
  3077. {
  3078. 32,80,97,110,100,101,109,111,110,105,117,109,32,32,32,32,32,32,32,32,
  3079. 32,32,32},{
  3080. 32,72,111,117,115,101,32,111,102,32,80,97,105,110,32,32,32,32,32,32,
  3081. 32,32,32},
  3082. {
  3083. 32,85,110,104,111,108,121,32,67,97,116,104,101,100,114,97,108,32,32,32,
  3084. 32,32,32},{
  3085. 32,77,116,46,69,114,101,98,117,115,32,32,32,32,32,32,32,32,32,32,
  3086. 32,32,32},
  3087. {
  3088. 32,76,105,109,98,111,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  3089. 32,32,32},{
  3090. 32,68,73,83,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  3091. 32,32,32},
  3092. {
  3093. 32,87,97,114,114,101,110,115,32,32,32,32,32,32,32,32,32,32,32,32,
  3094. 32,32,32}}}
  3095. BD(1)
  3096. CR=┬({
  3097. 80,82,78},{
  3098. 117})
  3099. CR=CR+0
  3100. CF=└()
  3101. ü½(Ck)=2â
  3102. Ck=▒(Ck,{
  3103. 32})
  3104. éü
  3105. ü╜(Ck[3],{
  3106. 115,119})=0Å╜(Ck[3],{
  3107. 83,87})=0â
  3108. Di()
  3109. éü
  3110. üCTâ
  3111. Dl()
  3112. éü
  3113. ü╝(Bc({
  3114. 112,119,97,100,100,101,114,46,114,101,103}))â
  3115. Dh()
  3116. éü
  3117. De()
  3118. »(3,1)
  3119. ¼(1,{
  3120. 82,101,97,100,105,110,103,32,80,87,65,68,68,69,82,46,73,78,73,46})
  3121. ü╝(Bc({
  3122. 112,119,97,100,100,101,114,46,105,110,105}))â
  3123. Df()
  3124. ╡()
  3125. De()
  3126. »(3,1)
  3127. éü
  3128. Dn()
  3129. ü╝(Bc(DA[1]&{
  3130. 92,68,79,79,77,46,87,65,68}))â
  3131. Dd()
  3132. éü
  3133. Dv()
  3134. èöCSê
  3135. CL=0
  3136. Dy()
  3137. èöCLê
  3138. M(2)
  3139. CD=L()
  3140. DB=Dq()
  3141. ü«(CD)â
  3142. üCQâ
  3143. »(25,1)
  3144. ┤(1,{
  3145. 37,50,100,32,32,37,50,100,32,32,37,51,100,32,32,37,51,100,32,32,
  3146. 37,49,100}
  3147. ,{DB[1],DB[2],CD[2],CD[3],CD[1]})
  3148. éü
  3149. üCD[1]=Câ
  3150. üDB[1]>4ÄDB[1]<25â
  3151. üDB[2]>1ÄDB[2]<78â
  3152. Cx=Cp
  3153. Cp=Ds()
  3154. üCp[3]<=CWâ
  3155. ü└()-CF<=CEâ
  3156. üCt[Cp[3]][1][1]â
  3157. ü╜(Cx,Cp)=0â
  3158. EE()
  3159. N(1)
  3160. éü
  3161. éü
  3162. éü
  3163. Dp()
  3164. à
  3165. Cp=Cx
  3166. éü
  3167. CF=└()
  3168. éü
  3169. éü
  3170. üDB[1]=3â
  3171. üDB[2]>9ÄDB[2]<19â
  3172. üDB[2]=10ÅDB[2]=12ÅDB[2]=14
  3173. ÅDB[2]=16ÅDB[2]=18â
  3174. Do()
  3175. éü
  3176. ëDB[2]>71ÄDB[2]<78â
  3177. N(0)
  3178. DX({
  3179. 32,81,117,105,116,32},3,72,14,4)
  3180. CL=1
  3181. CS=1
  3182. »(25,1)
  3183. Db(14,0)
  3184. ¼(1,╗(32,79))
  3185. »(25,1)
  3186. ëDB[2]>20ÄDB[2]<33â
  3187. üCt[Cp[3]][1][1]â
  3188. EE()
  3189. N(1)
  3190. éü
  3191. ëDB[2]>33ÄDB[2]<47â
  3192. üCt[Cp[3]][1][1]â
  3193. EH()
  3194. N(1)
  3195. éü
  3196. ëDB[2]>62ÄDB[2]<71â
  3197. ü╜(DC[Cp[3]],{
  3198. 82,69,65,68,32,68,79,67})!=0â
  3199. Dx()
  3200. N(1)
  3201. éü
  3202. ëDB[2]>47ÄDB[2]<54ÄDR[Cp[3]][4]â
  3203. EG()
  3204. N(1)
  3205. ëDB[2]>54ÄDB[2]<62ÄCXâ
  3206. Dm()
  3207. Dy()
  3208. N(1)
  3209. éü
  3210. éü
  3211. éü
  3212. éü
  3213. éè
  3214. BB(1543)
  3215. éè
  3216.